


















Pour tous les passionnés de l'ordinateur personnel, 
les Hñches et ceux qui le sont moins, Apple lance le Club Apple. 
| Enfin un (club avec des idées et des services | 


pour comprendre, pour gagner r, pour s'évader. 
| ___| Le Club Apple, c'est l'esprit Apple. | 


À ——— |— 


| C'est le fruit de |la passion! 
| | | | 














Pour en savoir plus sur le Club Apple - le fruit de la passion - et connaître tous les avantages que nous réservons aux 
membres du club, découpez dès aujourd'hui le bon et retournez-le à Club Apple, avenue de l'Océanie - ZA de Courtabœuf - BP 131, 
Les Ulis cedex 91944. Vous recevrez sans engagement de votre part toutes les informations pour devenir membre du club. 
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Editorial 


Trois ans déjà ! Trois années pendant lesquelles Pom's à augmenté sa pagination (ce numéro comporte 
80 pages). sa fréquence de parution. son tirage. et même son prix de vente. quoique moins de 15 % 
d'augmentation en trois ans. cela soit un record en matière d'inflation ! Surtout avec le Papier qui à 
pratiquement triplé et les frais postaux qui n'ont pas respecté les consignes du gouvernement en matière 
de contrôle des prix... 


Trois articies de ce numéro valent chacun le prix d'un abonnement annuel : tout d'abord le catalogue 
général de Michel Baudrand, et le programme lcare de Pascal Cantot qui regroupe {tel Haïfa) un 
paquet de routines toutes plus intéressantes les unes que les autres. sous le contrôle du célèbre &. Puis, 
inspiré par l'article de Michel Haag paru dans le numéro 12. la transformation par Jacques Rey de 
votre carte 80 colonnes “étendue” en un disque virtuel de 64K. 


Marcel Cottini stocke 217 fichiers sur une disquette. Il vous propose également un essai de Koala 
Pad. Dans le domaine des essais, vous trouverez également le logiciel Jane présenté par Jean-Michel 
Gourévitch, et Appleworks, logiciel intégré vu par Guy Lapautre. Pour ma part. j'ai pu tester Visicalc 
Advanced Version, le dernier développement de Visicalc. 





Deux articles originaux d'Alexandre Avrane : d'une part une routine de conversion de l'affichage 
minuscule en majuscule pour que vos programmes conçus sur //e et //c soient utilisables sur Apple Il 
sans ROM LC. et d'autre part, une contribution originale en Visicalc qui vous donnera les heures de 
lever et coucher du soleil. 


Jacques Tran-Van et Maurice Schapiro ont modifié le programme de gestion de masque écrit par 
Gérard Michel. Ce dernier poursuit par ailleurs sa série d'initiation à l'assembleur pour laquelle nous 
recevons toujours un courrier enthousiaste. 


Philippe Le Dru ajoute à l'Applesoft une routine de gestion de procédure avec des variables locales 
tout à fait ‘‘pascaliennes". Quant à Jacques Duma, il vous délivre des problèmes de virgules et deux- 
points dans les INPUTSs en deux lignes d'Applesoft. En deux lignes également vous pourrez sauvegarder 
et recharger des tableaux de variables sur disquettes. 


La rubrique Macintosh grandit et va devenir. probablement à partir du numéro de novembre, un cahier 
complet Je vous v présente une analyse de deux livres et deux logiciels de jeu. Jean-Luc Bazanegue 
a recherché pour vous les tokens du Basic Microsoft du Macintosh. et Pom's vous donne le moyen 
d'envoyer à votre brave Apple // des textes écrits avec MacWrite. Vous êtes en effet de plus en plus 
nombreux à disposer d'un Mac, et Pom's tient à apporter son soutien aussi aux utilisateurs à ce nou- 
veau bourreau des cœurs. 


Nous avons encore de nombreux programmes passionnants en réserve et prions les auteurs qui nous 
envoient leurs contributions de bien vouloir prendre patience. Dans le prochain numéro (novembre), 
entre autres beautés, vous aurez “Mobby Disk". un programme qui permet d'analyser ou de modifier 
un disque à volonté. 


Enfin, Pom's continue à rechercher un collaborateur connaissant parfaitement bien l'assembleur et le 
Basic Applesoft. sachant s'exprimer clairement et sans fautes d'ortographe. pour un travail de rédaction 
pouvant aller du mi-temps au temps complet. 


Hervé Thiriez 


Erratum : sur la couverture, il s'agissait de Bill Budge et non Bodge. Devons-nous y voir l'influence 
néfaste de la traduction de bug en Bogue ? 


Ont collaboré à ce numéro : Alexandre Avrane — Michel Baudrand — Pascal Cantot - Marcel Cottini - Alexandre Duback — 
Jacques Duma - Jean-Michel Gourévitch — Guy Lapautre — Philippe Le Dru - Gérard Michel - Jacques Rey - Maurice Schapiro — 
Hervé Thiriez - Jacques Tran Van. Rédacteurs : Alexandre Avrane — Gérard Michel Directeur de la publication, rédacteur 
en chef : Hervé Thiriez Dessin : Laurent Bidot. 

Siège social et abonnements : Editions MEV - 64.70, rue des Chantiers - 78000 Versailles - Tél. (3) 951.24.43 

Rédaction et courrier des lecteurs : 59. bd de Glatigny - 78000 Versailles 

Régie publicitaire : Force 7 Anne Jourdan - 5. place du Colonel Fabien - 75010 Paris - Tél. 240. 22.01 

Diffusion N.M.P.P. : Sophie Marnez Tél (1) 240 22.01 

Composition : Télécompo 13-15. avenue du Petit Parc 94300 Vincennes - Tel 328 18 63 

Impression : Rosay - 47. avenue de Paris - 94300 Vincennes _ Tél. 328 18.63 





Pom's n° 14 


SAS AAA PAGE 








1980: il était déjà là avant même l'explosion de la micro- 
informatique , prêt à évoluer avec elle d'année en année. 


1984/1985 :ilest “la” Bible. Sontitre,sesfidèlesleluiont donné, 
naturellement : “LE” GUIDE. 

Instrument de première approche des néophytes. 

Référence des passionnés, des vrais amateurs, des profes- 
sionnels, des constructeurs, des vendeurs. 


1984/1985 : LE GUIDE MICRO présente: 

- les 216 fiches techniques détaillées des micro-ordinateurs 
du marché (de 500 FF à 50 000 FF), 

- le tableau exclusif de plus de 130 imprimantes, 

- un panorama des 60 logiciels à connaître dans toutes 
les applications, 

- près de 2000 adresses de constructeurs, de clubs et 
de boutiques, par ordre alphabétique et par département, 

- les mots clefs de l'informatique. 







1°" septembre 1984: 
LE GUIDE MICRO est vendu 35 FF 
chez votre marchand de journaux. 


1984/1985 : élaboré par une équipe de journalistes, LE GUIDE 
MICRO explique : qu'est-ce qu'un ordinateur ? Que permet-il ? 
LE GUIDE MICRO prend parti et dit pourquoi: pour ou contre 
55 ordinateurs individuels. | commente les grandes manœu- 
vres de l'année 84. || tutoie l'avenir : les ordinateurs de janvier 
85 sont au rendez-vous. 


LE GUIDE DE 


TLORDINATEUR 
INDIVIDUEL 












L'article précédent nous a donné 
l'occasion de rentrer un peu dans le 
détail du contenu des octets manipu- 
lés par votre Apple et de voir 
comment certaines instructions de 
l'assembleur travaillent au niveau des 
bits d'information. 

En analysant les traitements présen- 
tés au sujet des ‘instructions ADC ou 
SBC, vous avez pu constater qu'il 
n'y a finalement rien de bien mysté- 
rieux dans l’évolution de ces suites 
de 1 et de O qui constituent les 
octets. L'application rigoureuse de 
règles arithmétiques simples permet 
en effet de prévoir le résultat des 
opérations binaires et, par voie de 
conséquence, de comprendre le 
fonctionnement et les conditions 
d'emploi des instructions du langage 
assembleur réalisant ces opérations. 


Nous pouvons donc maintenant 
aborder d’autres instructions plus 
"fines” quant à leur champ d'appli- 
cation. Si, comme toujours, elles ma- 
nipulent la quantité économique d’in- 
formation qu'est l'octet, les con- 
séquences de cette manipulation ne 
peuvent être totalement comprises 
qu'à l’aide d’un examen bit à bit. 
Des règles simples conduisent là en- 
core à la prédiction du résultat, et 
c'est bien normal lorsque les objets 
du traitement sont aussi pauvres” et 
peu nombreux que 0 et 1. 


Les opérateurs logiques 


Nous retrouvons là des instructions 
présentes également dans l'Applesoft. 
Lorsque vous écrivez "IF A=2 AND 
B=3” vous savez que la condition ne 
sera satisfaite que si l’on a à la fois 
"A=2” et "B=3". De même, si la 
condition devient "IF A=2 OR 
B=3”. vous savez qu'il suffira que 
"’A=2” ou que ”’B=3" pour qu'elle 
soit satisfaite, même si l'on n'a pas 
"B=3” lorsque ”’A=2”, ou ”’A=2” 
lorsque ”"B=3". 

Si l'on considère que ‘vrai’ est codé 
par ‘1’ et que ‘faux’ est codé par 
70”, "A=2 AND B=3" ne sera vrai 
que si ’A=2” donne 1 et si ’B=3” 
donne 1. En revanche, pour que 
"A=2 OR B=3" soit vrai, il suffit 
que l’un des deux éléments ’A=2” 
ou ‘’B=3" donne 1. Des principes 
identiques sont utilisés pour les opé- 
rateurs logiques en assembleur, avec 
toutefois une distinction supplémen- 
taire pour le OR”. 


Le ET logique 


Le code mnémonique de l'instruction 
est AND. Elle réalise un "ET logi- 
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que” entre l’accumulateur et ce qui 
suit le code AND, c'est-à-dire un 
nombre ou le contenu d'une case- 
mémoire désignée par l'un des 
modes d’adressage déjà étudiés. Le 
résultat est remis dans l’accumula- 
teur. 


Le ET s'effectue bit à bit, selon la 
table de vérité suivante : 


O ANDO=0 
OAND1=0 
1 ANDO=0 
1 AND 1=1 


Si le bit 3 de l'accumulateur est à 1 
au moment du AND et que le bit 3 
de l'élément ‘’comparé” est à 0, on 
retrouvera le bit 3 de l’accumulateur 
à 0 à l'issue du AND. 

Supposons ainsi que l’accumulateur 
contienne 01001101” (soit #$4D) 
et l'adresse $18 11011000” (soit 
#$D8). Après un AND avec le 
contenu de l'adresse $18, on trou- 
vera dans l’accumulateur la valeur 
01001000” (soit #$48) : sur le bit O 
(le plus à droite) on a 1 et O qui 
donnent 0, sur le bit 1 on a OU et O 
qui donnent 0, sur le bit Zona let 
0 qui donnent O, sur le bit 3 on a 1 
et 1 qui donnent 1... et ainsi de 
suite. 


Cette instruction AND permet en 
particulier de “forcer” des bits de 
l’accumulateur à 0. Prenons la valeur 
#$EF, par exemple, soit en binaire 
11101111”. Un AND #$EF forcera 
le bit 4 (le cinquième en partant de 
la droite) de l'accumulateur à 0 sans 
modifier les autres bits. Si l’accumu- 
lateur contenait 01110101”, on au- 
rait alors : 


01110101 
01100101 


Tous les bits de l’accumulateur de- 
meurent inchangés, sauf le bit 4 qui 
passe à 0. Si ce bit 4 avait déjà été à 
O avant AND), il le serait resté après. 
En tout état de cause, on est certain 
de trouver O dans ce bit 4 après 
AND. 


AND 11101111 — 


En assembleur, cela s’écrirait : 

LDA #$75 

AND #$EF 

et l’accumulateur contient maintenant 
#$65 (01100101). 


Revenons un instant sur l’un des 
programmes d'illustration proposés 
dans l’article précédent. Nous avions 
vu qu'il fallait retirer # $80 au code- 
clavier d’un chiffre pour obtenir son 
code-écran en mode INVERSE. Pour 
ce faire, nous avions utilisé SBC 
#$80. Or les codes écran concernés 


Initiation à l’assembleur (4) 


Gérard Michel 


sont supérieurs à #$80 et leur bit 7 
(le plus à gauche) est donc à 1. En 
binaire, #$80 vaut 10000000 et le 
complément à 2 de #$80 vaut éga- 
lement 10000000 (calculez-le pour 
vous en convaincre). Retirer #$80 
d'un octet dont le bit 7 est à 1 re- 
vient donc finalement à mettre sim- 
plement son bit 7 à O (1 + 1 = 0) 
sans modifier ses autres bits On 
pourrait obtenir le même résultat par 
un AND #$7F (#$7F = 01111111) 
qui force le bit 7 à O0 sans affecter les 
autres. Dans la mesure où l'on ne 
connaît pas toujours la valeur du bit 
C avant d'exécuter SBC, cette se- 
conde solution peut nous permettre 
de faire l’économie d'une instruction 
SEC en garantissant un résultat équi- 
valent. En résumé, si le bit 7 de l’ac- 
cumulateur est à 1, AND #$7F est 
équivalent à SEC suivi de SBC 
#$80. 


Les différents formats de l'instruction 
AND sont (ADS désignant une 
adresse symbolique) : 


e AND nombre = AND #$NN = 
29 NN (par exemple 29 7F) 

e AND adresse page 0 = AND ADS 
= AND faa = 25 aa (le ET est 
effectué entre l’accumulateur et le 
contenu de l'adresse aa) 

e AND adresse quelconque = AND 
ADS = AND faaaa = 2D octet 
bas/octet haut (AND $ED42 = 2D 
42 ED) 


e AND adresse page zéro,X = AND 
ADS,X = AND $aa,X = 35 aa 

e AND adresse quelconque,X 
AND ADS,X = AND faaaa,X 
3D octet bas/octet haut 

e AND adresse quelconque, Y 
AND ADS,Y = AND faaaa, Y 
39 octet bas/octet haut 

e AND (adresse,X) = AND (ADS, X) 
= AND ($aa,X) = 21 aa 

e AND (adresse), Y = AND (ADS),Y 
= AND ($aa),Ÿ = 31 aa 


L'exécution de AND exerce une ac- 
tion sur le registre d'état : le bit Z (in- 
dicateur de résultat nul) vaudra 1 si 
l'accumulateur contient O0 après AND 
et O dans le cas contraire, tandis que 
le bit N (indicateur de signe) sera à 1 
ou 0 selon que le bit 7 de l’accumu- 
lateur sera lui aussi à 1 ou O après 
AND. 


Le ET logique ’virtuel” 


L'instruction BIT réalise le même 
traitement que AND mais ne remet 
pas le résultat dans l'accumulateur 
qui reste donc inchangé (d'où le 
qualificatif ”’virtuel”). En revanche, le 
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registre d'état se trouve affecté par 
BIT. D'une part, l'indicateur Z est 
positionné comme pour AND et, 
d'autre part, les bits 6 et 7 du 
contenu de l'adresse donnée après 
BIT sont copiés dans les bits 6 et 7 
du registre d'état (indicateurs V et 
N 


Supposons ainsi que vous vouliez sa- 
voir à un instant donné si le bit 7 du 
contenu de l'adresse $25 est à O ou 
1 (nombre positif ou négatif en 
complément à 2), mais sans pouvoir 
modifier le contenu des registres À, X 
et YŸ. Après une instruction BIT $25, 
un test par BPL (branchement si in- 
dicateur N = 0) ou par BMI (bran- 
chement si N = 1) vous donnera 
l'information souhaitée et vous per- 
mettra d'orienter vos traitements en 
conséquence. De même, si c'est le 
bit 6 qui vous intéresse, BIT $25 
suivi de BVC ou BVS conduira au 
résultat. 


L'instruction BIT ne possède que 
deux formats : 


e BIT adresse page 0 = BIT ADS = 
BIT $aa = 24 aa 

e BIT adresse quelconque = BIT 
ADS = BIT Santa = 2C octet 
bas/octet haut 


Le OÙ exclusif 


L'instruction EOR réalise un traite- 
ment bit par bit avec les mêmes opé- 
randes et opérateurs que AND : ac- 
cumulateur et autre chose, avec 
résultat de l'opération remis dans 
l’accumulateur. La table de vérité de 
EOR est : 


OEORO=0 
OEOR 1=1 
1EORO=1 
1EOR1=0 


Un bit du résultat ne sera vrai” que 
si l'un des bits de départ est faux et 
l'autre vrai un EOR sur deux bits 
NA (0 ou 1) donne toujours 


EOR #$FF permet de calculer le 
complément à 1 de l’accumulateur, 


par exemple : 

01101001 EOR 11111111 — 
10010110 

L'accumulateur contenait  #9$69 


(01101001) et, après EOR #$FF 
(11111111), tous les bits à 1 se re- 
trouvant à O et réciproquement, il 
contiendra #$96 (10010110). En as- 
sembleur, cela s’écrirait : 

LDA #$69 

EOR #$FF 


En revanche, EOR #5$00 laisse le 
contenu de l’accumulateur inchangé, 
comme vous n'aurez aucune peine à 
le vérifier. 


L'exécution de EOR affecte les indi- 
cateurs N et Z dans les mêmes 
conditions que celle de AND. Les 
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formats possibles sont : 


®e EOR nombre = EOR #$NN = 49 
NN 

e EOR adresse page 0 = EOR ADS 
= EOR $aa = 45 aa 

© EOR adresse quelconque = EOR 
ADS = EOR faaaa = 4D octet 
bas/octet haut 

e EOR adresse page 0,X = EOR 
ADS,X = EOR faa,X = 55 aa 

e EOR adresse quelconque,X = 
EOR ADS,X = EOR $aaaaX = 
5D octet bas/octet haut 

e EOR adresse quelconque, Y = 
EOR ADS,Y = EOR faaaa,YŸ = 
59 octet bas/octet haut 

®e EOR (adresse,X) = EOR (ADS,X) 
= EOR ($aa,X) = 41 aa 

e EOR (adresse), Ÿ = EOR (ADS),Y 
= EOR ($aa),Y = 51 aa 


Le OÙ inclusif 


C'est le même, sur le principe, que 
celui de l’Applesoft. Pour que le ré- 
sultat soit vrai”, il suffit cette fois 
que l’un des deux éléments de dé- 
part le soit sans que l’autre doive né- 
cessairement être ‘’faux”. Le code de 
l'instruction est ORA et elle utilise la 
table de vérité : 


0 ORA 0 = 0 
OORA1=1 
1 ORA O0 = 1 
1ORA1=I1I 


Le ORA se fait entre l’accumulateur 
et autre chose, le résultat étant tou- 
jours remis dans l’accumulateur. 
Cette instruction permet notamment 
de forcer des bits à 1 sans modifier 
les autres. Par exemple, ORA #$10 
(00010000 en binaire) force le bit 4 
de l’accumulateur à 1 : 


10001011 ORA 00010000 — 
10011011 

En assembleur, cela s’écrirait : 

LDA #$8B 

ORA #$10 


et l’on aurait alors #$9B (10011011) 
dans l’accumulateur. 


À noter que si le bit 7 de l’accumula- 
teur est à 0, ORA #$80 (10000000) 


Etope 3 


est équivalent à CLC suivi de ADC 
#$80. Si le bit 7 de l'accumulateur 
est à 1, vous aurez sans doute cons- 
taté que c'est AND  #$7F 
(01111111) qui équivaut à CLC 
suivi de ADC #5$80 puisque, une fois 


éliminées les conséquences de la va- 
leur de l'indicateur C, ADC #$80 
donne le même résultat que SBC 
#$80 (—-128 = 128 = $80). 

De même, lorsque le bit 7 de l’accu- 
mulateur est à 0, ORA #$80 revient 
à lui retirer #$80 (le bit 7 passe à 1 
lorsqu'on ajoute le complément à 2 
de #$80 qui n'est autre que 
#$80...). 

Cette équivalence entre opérateurs 
logiques et ADC/SBC ne peut toute- 
fois être exploitée simplement que 
pour des calculs sur un octet, car 
AND et ORA ne manipulent pas la 
retenue dont on a besoin dès que 
l'on passe à des opérations sur deux 
octets. 


ORA affecte le registre d'état exacte- 
ment comme AND et EOR (bits N et 
Z); les formats de l'instruction sont : 


e ORA nombre = ORA #$NN = 
09 NN 


e ORA adresse page 0 = ORA ADS 
= ORA $aa = 05 aa 

e ORA adresse quelconque = ORA 
ADS = ORA faaaa = 0D octet 
bas/octet haut 

e ORA adresse page 0,X = ORA 
ADS,X = ORA $aa,X = 15 aa 

e ORA adresse quelconque,X = 
ORA ADS,X = ORA $aaaa,X = 
1D octet bas/octet haut 

e ORA adresse quelconque,Y = 
ORA ADS,Y = ORA faaaa,Ÿ = 
19 octet bas/octet haut 

e ORA (adresse,X) — ORA (ADS,X) 
= ORA ($aa,X) = 01 aa 

e ORA (adresse), Y = ORA (ADS),Y 
= ORA ($aa),Y = 11 aa 


Décalages et rotations 
Décalage à gauche : ASL 


L'instruction ASL agit sur un octet 
selon le principe suivant : 

— un entre dans l'octet par la 
droite; 

— tous les bits de l’octet sont donc 
poussés vers la gauche; 

— le bit 7, qui était le plus à gauche, 
n'a plus de place dans l’octet et il 
tombe” dans le bit de retenue C. 


Etape 1 


Prenons par exemple  l'octet 
710100111”. Si on lui fait subir un 
décalage à gauche, il deviendra 
01001110” et le bit 7 qui était à 1 
se retrouve dans la retenue: C=1 
après cette opération. 
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Ouvrons maintenant une petite pa- 
renthèse sur le système décimal. Il 
est évident pour tout le monde que 
2*x10 = 20. Si l’on examine ce résul- 
tat de plus près, on peut dire que le 
chiffre 2 est en fait poussé vers la 
gauche par un O qui entre par la 
droite et même, en raisonnant sur un 
seul chiffre, qu'il tombe finalement 
dans un chiffre de retenue C que 
l'on remet ensuite devant le résultat 
(en binaire, une retenue ne peut va- 
loir que O ou 1, mais elle peut pren- 
dre toute valeur entière entre O et 9 
en décimal). Finalement, la multipli- 
cation par 10 en décimal n’est rien 
d'autre qu'un décalage des chiffres 
vers la gauche, poussés par un 0 qui 
rentre par la droite. 

En binaire, et en toute logique, un 
décalage à gauche revient à multi- 
plier par 2 l’octet qui fait l’objet du 
décalage. 


Soit par exemple l’octet 01110101” 
(117 en décimal), à l'issue du déca- 
lage, on a ”11101010” et C=0,; on 


vérifie bien que ”’11101010” = 234. 


en décimal = 2*x117. 

De même, si on décale à gauche 
710100111” (167 en décimal), on 
obtient 01001110” (78) et C=1. Si 
l'on considère cette retenue de 1 
comme le poids fort du résultat, on 
vérifie que 256+78 = 334 = 2167. 


Voyons maintenant les formats de 
l'instruction ASL avant d'examiner 
plus en détail le problème de la mul- 
tiplication par 2 sur deux octets : 


e ASL accumulateur = ASL = OA 

e ASL adresse page 0 = ASL ADS 
= ASL $aa = 06 aa 

e ASL adresse quelconque = ASL 
ADS = ASL $aaaa = 0E octet 
bas/octet haut 

e ASL adresse page 0,X — ASL 
ADS,X = ASL faa,X = 16 aa 

e ASL adresse quelconque,X 
ASL ADS,X = ASL $faaaa,X 
1E octet bas/octet haut 


Soit un nombre stocké sur deux 
octets O1 (poids faible) et O2 (poids 
fort). Multiplier ce nombre par 2 re- 
vient à : 

— décaler O1 à gauche 

— décaler O2 à gauche 

— ajouter à l'octet OZ ainsi multiplié 
la retenue éventuelle provenant du 
décalage (multiplication) de O1. 


Les lignes 1 à 17 du Programme 1 
vous présentent une première mé- 
thode pour effectuer ce calcul, à 
l'aide des instructions que nous 
connaissons déjà. On initialise une 
variable R (retenue) à 0, mais on la 
fait passer à 1 si le test BCC échoue 
après ASL O1 (l'échec signifie que 
c'est un 1 qui est tombé dans la rete- 
nue C). Ensuite, on charge l’accumu- 
lateur avec O2, on le décale, on lui 
ajoute la valeur de R (0 ou 1) et on 
remet le résultat dans O2. Le sto- 
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ckage intermédiaire de la retenue 
nous est imposé par le fait que ASL 
O2 modifierait le bit C qui ne pour- 
rait donc garder à coup sûr la valeur 
qu'il avait après ASL OI. 

Ne regardez pas trop vite la suite du 
Programme 1, mais sachez néan- 
moins qu'il existe une manière plus 
simple de parvenir au même résul- 
tat.… 


Précisons pour finir que l'exécution 
de ASL agit sur le bit C, bien sûr, 
mais aussi sur l'indicateur N (mis à 1 
si le bit 7 de l'octet est à 1 après 
ASL, et à 0 sinon) et l'indicateur Z 
(mis à 1 si l’octet ne contient plus 
que des 0 après ASL, à 0 sinon). 


Décalage à droite : LSR 


Mêmes causes, mêmes effets, mais 
dans l’autre sens ! 

— un 0 entre dans l’octet par la gau- 
che; 

— tous les bits sont repoussés vers la 
droite; 

— le bit O, le plus à droite, n’a plus 
de place et il tombe dans la retenue. 


Etope 1 


LSR 


poids fort (O2) par 2. S'il est bien di- 
visible par 2, c'est-à-dire si son bit O 
est à O0, on aura C=0 après LSR. 
Dans le cas contraire, on aura une 
retenue C=1 qu'il faudra remettre 
dans le bit 7 de l’octet de poids fai- 
ble (O1) après avoir également divisé 
ce dernier par 2. Reprenons l’exem- 
ple de 334/2 pour illustrer la chose. 


Nous avons déjà vu que 
7110100111” (167) x 2  — 
701001110” (78) plus une retenue 
C=1 qui est en fait un octet de poids 
fort 00000001”. 


Si l'on divise 01001110” par 2 au 
moyen de LSR, on obtient 
00100111”, soit 39 qui est bien la 
moitié de 78, mais, pour retrouver 
notre 167 de départ, il nous manque 
128, soit la moitié de 256. Avec le 
bit 7 à 1, “00100111” devient 
710100111”, soit 167, et lon peut 
prendre ce 1 dans C qui sera juste- 
ment à 1 après le décalage à droite 
de 00000001”. 


Supposons maintenant que le poids 
fort soit 00000010” et le poids fai- 
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Sans revenir sur les subtilités de la 
division par 10, et compte tenu de ce 
qui précède, vous avez déjà deviné 
que l'instruction LSR permet notam- 
ment de diviser un octet par 2. Par 
exemple : 


01001110” (78 en décimal) devient 
do (39) après LSR, avec 
11101010” (234) devient 
er NE (117) après LSR, avec 


Mais pour retrouver le résultat de 
334/2, puisque nous avions calculé 
tout à l'heure que 167x2 = 334 il 
faut de nouveau travailler sur deux 
octets. Nous y reviendrons après 
avoir donné les formats de LSR. 


e LSR accumulateur = LSR = 4A 

e LSR adresse page 0 = LSR ADS 
= LSR $aa = 46 aa 

e LSR adresse quelconque = LSR 
ADS = LSR $aaaa = 4E octet 
bas/octet haut 

e LSR adresse page 0,X = LSR 
ADS,X = LSR $aa,X = 56 aa 

e LSR adresse quelconque,X 
LSR ADS,X = LSR $aaaa,X 
5E octet bas/octet haut 


Pour diviser par 2 sur deux octets, il 
faut tout d’abord diviser l’octet de 


ble 01001110”, ce qui correspond 
à (2x256) + 78 = 590. La division 
de ‘’00000010” par LSR donne 
00000001” avec C=0, et celle de 
*01001110” donne toujours 
”00100111”, d'où un résultat à ce 
stade de (1x256) + 39 = 295, qui 
est bien la moitié de 590. Il n’est pas 
nécessaire cette fois de modifier le bit 
7 de l’octet de poids faible, car le 
poids fort de départ était pair, ce que 
C=0 après LSR pourra nous indi- 
quer. 


Ce mécanisme des divisions par 2 
serait bien sûr plus facile à analyser si 
l'on travaillait directement sur 16 bits. 
Reprenons ainsi nos deux exemples : 


e 334 = 0000000101001110 
LSR 0000000101001110 donne 
0000000010100111 ou encore 
00000000” et 10100111” 
e 590 = 0000001001001110 
LSR 0000001001001110 donne 
0000000100100111 ou encore 
00000001” et 00100111” 
Comme nous sommes obligés de tra- 
vailler sur 8 bits, c'est le bit C après 
LSR sur le poids fort qui sert de 
pont” entre les deux parties du 
nombre sur 16 bits. 


Les lignes 19 à 30 du Programme 1 
vous présentent une première mé- 
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thode pour effectuer ce type de cal- 
cul. On initialise une variable R à 
#$80, soit 10000000, et on décale 
le poids fort O2 par LSR. Si le test 
BCS échoue, c'est que C=0 après 
ce premier LSR:; dans ce cas, ASL R 
nous donnera simplement 00000000 
dans R. Ensuite, on charge l’accumu- 
lateur avec le poids faible O1 et on 
le décale. Avec l'instruction ORA KR, 
on fait donc ORA 10000000 si C 
était à 1 après LSR O2, ce qui force 
le bit 7 de l’accumulateur à 1, ou 
ORA 00000000 qui laisse l’accumu- 
lateur inchangé dans le cas contraire. 
Le résultat est enfin remis dans O1. 


À noter que le bit N du registre 
d'état est toujours à O après LSR, 
puisque le bit 7 du ‘’dernier résultat” 
devient justement 0. Le bit C prend 
la valeur du bit qui tombe dedans, et 
l'indicateur Z est positionné comme 
pour ASL. 


Rotation à gauche : ROL 


L’instruction ROL fonctionne comme 
ASL, sauf sur un point fondamental : 
ce n'est pas systématiquement un 0 
qui rentre dans l’octet par la droite, 
mais la valeur du bit de retenue C (0 
ou 1). Le mécanisme est donc le sui- 
vant : 

— le bit de retenue C rentre par la 
droite; 

— les bits sont poussés vers la gau- 
che; 

— le bit 7 de l’octet tombe dans la 
retenue. 


Etape 3 


poids fort revient à le décaler vers la 
gauche, puis à donner à son bit de 
droite la valeur de la retenue résul- 
tant du décalage du poids faible. On 
obtiendrait le même résultat si le bit 
rentrant lors du décalage était juste- 
ment ce bit de retenue, et c'est exac- 
tement ce que permet de faire l’ins- 
truction ROL. 

Vous trouverez cette seconde mé- 
thode de calcul dans les lignes 32 à 
36 du Programme 1. Nul doute 
qu'elle vous paraîtra plus simple que 
la première. 


Autre exemple d'utilisation de ROL, 
le découpage des octets. Supposons 
ainsi que vous vouliez récupérer dans 
un octet O2 les 4 bits de gauche 
d'un octet O1, qui, à eux seuls, 
constituent une information dont 
vous avez besoin (si O1=#$A2, c’est 
d'avoir O2=#$0A qui vous inté- 
resse). Le petit programme suivant 
vous permettrait d'y parvenir : 


LDX #4 
LDA #0 
STA O2 
LDA O1 
BO ROL 
ROL O2 
DEX 
BNE BO 


Formats de l'instruction ROL : 


e ROL accumulateur = ROL = 2A 

e ROL adresse page 0 = ROL ADS 
= ROL $aa = 26 aa 

e ROL adresse quelconque = ROL 


Etape 1 





Si le bit C est à O avant l'exécution 
de ROL, cette dernière est équiva- 
lente à ASL, mais le fait important 
est que ROL permet de modifier l’or- 
dre des bits à l’intérieur d'un octet 
ou de faire passer des bits d'un octet 
à un autre. 


Reprenons notre problème de la 
multiplication par 2 sur deux octets. 
Il est simple de multiplier le poids fai- 
ble grâce à ASL, mais la difficulté ré- 
sulte ensuite de la prise en compte 
d'une éventuelle retenue après la 
multiplication du poids fort par ce 
même ASL. La multiplication par 2 
consiste en un décalage à gauche 
avec entrée d’un 0 à droite; lorsque 
l'on ajoute une retenue 0 ou 1 à un 
octet ainsi multiplié, son bit de droite 
ne peut prendre que les valeurs 0 ou 
1 sans qu'il y ait de retenue se pro- 
pageant à l'intérieur de l'octet. En 
d'autres termes, la multiplication du 
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ADS = ROL faaaa — 2E octet 
bas/octet haut 

e ROL adresse page 0,X = ROL 
ADS,X = ROL faa,X = 36 aa 

e ROL adresse quelconque.X = 
ROL ADS,X = ROL faaaa X = 
3E octet bas/octet haut 


L'exécution de ROL affecte le regis- 
tre d'état comme celle de ASL. 


Rotation à droite : ROR 


ROR est à ROL ce que LSR est à 
ASL ! Cette fois, le bit C rentre par 


Etape 1 


la gauche, repousse les autres bits 
vers la droite et le bit O0 tombe par 
conséquent dans la retenue. Si C=0, 
ROR est équivalent à LSR. 


Vous concevez sans doute, surtout si 
vous lisez le Programme 1 plus vite 
que prévu, que ROR peut nous être 
fort utile pour notre division par 2 
sur deux octets. Tout le problème 
consistait justement à faire prendre 
au bit 7 du poids faible décalé à 
droite la même valeur que ceile du 
bit C après le décalage à droite du 
poids fort. Il est donc bien agréable 
de pouvoir décaler ce poids faible en 
faisant rentrer à la place du bit 7 la 
retenue en question, comme vous le 
verrez dans les lignes 38 à 42 du 
Programme 1. 


Pour en revenir maintenant au dé- 
coupage des octets, si l’on veut récu- 
pérer dans O2 les 4 bits de droite de 
O1, il suffit de remplacer dans le pro- 
gramme précédent ”’BO ROL” par 
"BO ROR”. C'est bien toujours par 
"ROL O2” qu'il faut faire rentrer les 
bits dans O2: si vous faites "ROR 
O2” et si Ol=#$2F, par exemple, 
vous retrouverez #$F0 dans O2 et 
non #$0F. 


Formats de l'instruction ROR : 


e ROR accumulateur = ROR = 6A 

e ROR adresse page 0 = ROR ADS 
= ROR $aa = 66 aa 

e ROR adresse quelconque = ROR 
ADS = ROR faaaa = 6E octet 
bas/octet haut 

e ROR adresse page 0,X = ROR 
ADS,X = ROR $aa.X = 76 aa 

e ROR adresse quelconque,X 
ROR ADS,X = ROR $aaaa,X 
7E octet bas/octet haut 


L'exécution de ROR affecte les 
mêmes indicateurs du registre d'état 
que celle de ROL. 


Découpage du registre 
d'état 

Toutes ces instructions de décalage 
et de rotation permettent de faire 
sortir des bits d’un octet, de les faire 
rentrer dans un autre. et nous 
allons maintenant les utiliser pour dé- 
couper et analyser un octet bien spé- 
cial : le registre d'état du micro-pro- 
cesseur. Pour ce faire, nous évo- 
querons d'abord deux nouvelles ins- 
tructions tenant à l’usage de la pile. 


Nous avons déjà vu qu'il était possi- 
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ble de déposer le contenu de l’accu- 
mulateur au sommet de la pile par 
PHA et de récupérer le sommet de la 
pile dans l’accumulateur par PLA. 
Ces mêmes manipulations sont possi- 
bles avec le registre d'état au moyen 
de PHP (08), correspondant à PHA, 
et de PLP (28), correspondant à 
PLA. Alors qu'il n'existe pas d'ins- 
truction équivalente à STA pour sto- 
cker le registre d'état dans une case- 
mémoire, on peut y parvenir malgré 
tout grâce à PHP suivi de PLA, qui 
permettent de récupérer le contenu 
du registre d'état dans l’accumula- 
teur. 


Les lignes 44 à 66 du Programme 1 
constituent une sous-routine qui dé- 
coupe et affiche à l'écran le registre 
d'état bit par bit. Nous allons en dé- 
tailler le fonctionnement. 


— Lignes 45 et 46: le registre sera 
stocké dans la variable P dès l'appel 
de la routine et c’est donc le contenu 
du registre au moment de cet appel 
que nous analyserons. M sera utilisé 
pour l'affichage : il contiendra O ou 1 
selon la valeur des indicateurs du re- 
_. d'état et x” pour le bit inuti- 
isé. 

— Lignes 47 à 49: on récupère le 
registre par le biais de la pile et on le 
stocke dans P. 

— Lignes 50 à 52: X servira de 
compteur de boucle (il y a 8 bits à 
découper) et on initialise M à O. 

— Lignes 53 et 54: par ASL P, on 
fait sortir les indicateurs du registre 
dans l’ordre "bit 7”, "bit 6”, …, "bit 
0”. Par ROL M, le bit sorti du regis- 
tre et tombé dans la retenue rentre 
dans M par la droite, ce qui garantit 
que M contiendra toujours 
00000000” ou 00000001”, donc 
0 ou 1. 

— Lignes 55 et 56: si X=6, on est 
au bit 5 du registre qui n’est pas un 
indicateur. On saute alors en SO 
pour afficher x” (#$AA est le code- 
écran de ’*”’ en mode NORMAL). 

— Lignes 57 à 60: pour afficher 1 
ou 0, on ajoute #$B0 au contenu de 
M afin d'obtenir le code-écran en 
mode NORMAL de ”1” ou 0”. On 
utilise ensuite la routine standard 
d'affichage du moniteur qui débute 
en $FDF(0. 

— Lignes 61 à 64: LSR M permet 
de faire rentrer un 0 dans M par la 
gauche et de faire ressortir le bit qui 
était entré par la droite lors du ROL 
M; après cette instruction, M est donc 
ré-initialisé à 00000000”. Tant que 
X est différent de O après DEX, on 
boucle pour traiter tous les bits du 
registre en séquence. Si X=0, on 
sort de la routine. 


Le Programme 2 sert de jeu d'essai 
pour la routine analysée ci-dessus. 
On fait exécuter certaines instruc- 
tions, puis on va afficher le registre 
d'état qui en découle par un JSR 
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TEST (TEST appelle la routine du 
Programme 1 en $32F, puis une 
routine du moniteur en $FC62 qui 
envoie un RETURN à l'écran, et ce 
afin de n’afficher qu’un registre par 
ligne). 

Le programme Basic P2.DEMO 
lance ce Programme 2 et vous 
donne finalement à l'écran une suc- 
cession de registres dont chacun cor- 
respond à l’état des indicateurs à l’is- 
sue des instructions qui précèdent le 
JSR TEST avant provoqué son affi- 
chage. Intéressez-vous surtout aux 
deux bits de gauche (indicateurs N et 
V) et aux deux bits de droite (indica- 
teurs Z et C). 


Sur la première ligne, par exemple, 
vous voyez : 

11#10000, soit : 

N=1, V=1, Z=0 et C=0. 

Cet état résulte de l'opération #$40 
+ #$40, ou encore 64 + 64 en dé- 
cimal, ou enfin ‘’01000000” + 
01000000” en binaire. A l'issue de 
cette opération, le ‘dernier résultat” 
est ”1000000" : il est négatif (bit 7 à 
1), d'où N=1, il y a eu débordement 
(retenue du bit 6 sur le bit 7), d’où 
V=1, le résultat est différent de 0, 
d'où Z=0, et il n'y a pas eu de rete- 
nue extérieure, d'où C=0. 


Amusez-vous (mais oui!) à analyser 
de cette façon les indicateurs corres- 
pondant aux autres opérations du jeu 
d'essai. Ceci vous permettra de véri- 
fier les indications ‘littéraires’ don- 
nées pour chaque instruction étudiée 
quant à son influence sur le registre 
d'état et leur donnera un caractère 
plus concret. 


Recodage des caractères 


Les codes ASCII, sous la forme des- 
quels les caractères disponibles au 
clavier de votre Apple sont stockés 
en mémoire, sont tous inférieurs à 
128. Ce n'est que pour l'affichage à 
l'écran et la saisie-clavier que l’on 
peut trouver des codes de valeur su- 
périeure à 127. 

Si l'on se rappelle que 127 = #$7F 
en hexa et 01111111” en binaire, 
on en déduit que tous les nombres 
compris entre O0 et 127 en décimal 
ont un bit 7 à O et que ce bit, ayant 
la même valeur pour tous, ne peut 
servir à différencier un nombre d'un 
autre. En d’autres termes, 7 bits suffi- 
sent pour coder tous les caractères 
disponibles : le huitième n'apporte 
aucune information supplémentaire. 


Par voie de conséquence, il doit être 
possible de coder 8 caractères en 7 
octets: si l’on récupère pour les 7 
premiers caractères la place occupée 
par les bits ”’inutiles”, on dispose de 
7 bits libres qui permettent de coder 
un huitième caractère. Cette possibi- 
lité présente un intérêt certain pour 
quiconque voudrait un jour dévelop- 


per son propre système de gestion 
de fichiers de données, sans passer 
par DOS 3.3 ou autre, car si une dis- 
quette de 140K, par exemple, peut 
contenir 143360 caractères de 8 bits, 
elle peut stocker 163840 caractères 
de 7 bits. Le gain de capacité n’est 
pas tout à fait négligeable. 


Nous nous bornerons pour l'instant à 
voir comment on peut recoder 8 ca- 
ractères en 7 octets et les récupérer 
ensuite en 8 octets pour qu'ils restent 
exploitables par l'Applesoft, le moni- 
teur ou le DOS. 

Le programmme Basic PR3.DEMO 
demande 8 caractères au clavier et 
les POKE à partir de l'adresse 
$9000. Il appelle alors une routine, 
dont le source est Programme 3, qui 
recode le tout en 7 octets, les dé- 
place à l'adresse $9100 (afin qu'il 
n'y ait pas de doute sur l'efficacité du 
recodage) et les reconstitue en 8 
octets. Le programme Basic récupère 
enfin les 8 caractères par des PEEKSs 
à partir de l’adresse $9100. 


Pour vous aider dans l'analyse de la 
routine en assembleur, voici les prin- 
cipes du traitement réalisé : 


‘© Sur le premier octet, il y a un bit à 


récupérer à gauche. On fait sortir le 
bit 7 de l’octet par ASL. Par un LSR 
sur le deuxième octet, on fait tomber 
dans la retenue son bit O puis, par 
un ROR sur le premier octet, on fait 
rentrer ce bit 0 du deuxième octet 
dans le premier tout en remettant à 
leur place les bits 0 à 6 de celui-ci. 


e Sur le deuxième octet, il y a donc 
maintenant 2 bits à récupérer. Par 
deux ASL successifs, on fait sortir les 
bits 6 (ancien bit 7) et 7 (0 entré lors 
du LSR). En faisant ensuite deux fois 
"LSR sur le troisième octet suivi de 
ROR sur le deuxième”, on récupère 
dans les bits 6 et 7 du deuxième les 
bits O et 1 du troisième. 

© Et ainsi de suite jusqu'au septième 
octet sur lequel on fait sept fois ASL, 
puis sept fois ”"LSR le huitième - 
ROR le septième”. Dans ce dernier 
octet, on a finalement le bit 6 du 
septième de départ en position O, et 
les bits 0 à 6 du huitième octet aux 
positions 1 à 7. 


e Pour retrouver 8 octets à partir de 
7, on commence par faire tomber le 
bit 7 du premier octet dans la rete- 
nue par ASL. Puis on enchaîne ROL 
sur le deuxième, ROL sur le troi- 
sième... ROL sur le huitième : le bit 
7 de chacun des 7 octets se retrouve 
ainsi en bit O dans le suivant. Un 
LSR sur le premier octet lui redonne 
alors sa forme de départ (remise en 
place des bits décalés à gauche par 
ASL et rentrée d’un 0 en position 7). 
e Le deuxième octet a maintenant 
récupéré ses 7 bits utiles”; il lui 
reste à en céder un (son bit 7 actuel) 
qui appartient au troisième (c'était 
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son bit O0 de départ). On fait donc 
ASL sur ie deuxième, suivi de ROL 
sur le troisième, ROL sur le qua- 
trième.. ROL sur le huitième. Un 
LSR sur le deuxième octet lui re- 
donne enfin sa forme intiale. 


e Ce mécanisme se poursuit jusqu’à 
ce que l'on ait traité de même le sep- 
tième octet (ASL octet 7 - ROL octet 
8 - LSR octet 7). Le huitième octet a 
dès lors retrouvé ses 7 bits utiles, et 
un AND #$7F force son bit 7 à 0 


pour garantir un code ASCII inférieur 
à 128. Il ne reste plus qu’à rendre la 
main au Basic pour qu'il récupère les 
8 caractères et les affiche. 








0325 31 3 
Programme 1 0325 32 MULTIPLICATION PAR 2 SUR 2 OCTETS 
0325 33  ;DEUXIEME METHODE 
0325 Gé0é 34 ASL O1 
*xEND OF PASS 1 0327 2607 35 ROL 02 
**END OF PASS 2 0329 60 36 RTS 
0324 37 3 
0300 1 ORG #$300 0324 38  ;DIVISION PAR 2 SUR 2 OCTETS 
0300 2  ÿMULTIPLICATION PAR 2 SUR 2 OCTETS| 0324 39  ;DEUXIEME METHODE 
0300 3 ;PREMIERE METHODE 032A 4607 40 LSR 02 
0300 4 0! EPZ $6 032C 6606 ai ROR 01 
0300 5 02 EPZ #7 032E 60 42 RTS 
0300 6 R EPZ $8 032F 43  ; 
0300 A900 7 LDA #0 032F 44  ;DECOUPAGE DU REGISTRE D’ETAT 
0302 8508 8 STA R 032F 45 P EPZ $18 
0304 0606 9 ASL 01 032F 46 M EPZ #19 
0306 9002 10 BCC SUITE! 032F 08 47 PHP 
0308 E4608 11 INC R 0330 68 48 PLA 
03084 A507 12 SUITE! LDA O2 0331 8518 49 STA P 
030€ 04 13 ASL 0333 A208 50 LDX #8 
0300 18 14 CLC 0335 A900 51 LDA #0 
030E 6508 15 ADC R 0337 8519 52 STA M 
0310 8507 16 STA 02 0339 0618 53 si ASL P 
0312 60 17 RTS 0338 2619 54 ROL M 
0313 18 ; 033D E006 55 CPX #6 
0313 19  ;DIVISION PAR 2 SUR 2 OCTETS 033F FO0E 56 BEQ 50 
0313 20 3; PREMIERE METHODE 0341 AS19 57 LDA M 
0313 A980 21 LDA #$80 0343 18 58 CLC 
0315 8508 22 STA R 0344 6980 59 ADC #$B0 
0317 4607 23 LSR 02 0346 20FO0FD 60 S2 JSR $FDFO 
0319 B002 24 BCS SUITE2 0349 4619 61 LSR M 
031B 04608 25 ASL R 034B CA 62 DEX 
031D 4506 26 SUITEZ2 LDA O1 034C DOEB 63 BNE 51 
031F 4 27 LSR 034E 40 64 RTS 
0320 0508 28 ORA R 034F A9AA 65 50 LDA H#$AA 
0322 6506 29 STA O1 0351 DOF3 éé BNE S2 
0324 60 30 RTS 0353 67 3 
. : : 0308- Eé 08 AS 07 0A 18 65 08  0330- 68 85 18 A2 08 A9 00 85 
Récapitulation 1 0310- 85 07 60 A9 80 85 08 46  0338- 19 06 18 26 19 EO 06 FO 
*300.352 0318- 07 BO 02 06 08 AS 06 4  0340- DE AS 19 18 69 BO 20 FO 
0320- 05 08 85 06 60 06 06 26  0348- FD 46 19 CA DO EB 60 A9 
0300- A9 00 85 08 06 06 90 02 0328- 07 60 46 07 66 06 60 08  0350- AA DO F3 
Programme 1.DEMO {732 PRINT "MULTIPLICATION 1 
d"R 
40 POKE 7,2 / 256: POKE 6,2 - 256 
1 REM DEMONSTRATION DES MULTIPLI * PEEK (7): PRINT : CALL 76 
CATIONS ET DIVISIONS PAR 2 SU 8 + 19:R = PEEK (6) + 256 x 
R 2 OCTETS PEEK (7): PRINT "DIVISION 1 
2 REM LA DIVISION PAR 2 D’UN NOM s °R 
BRE IMPAIR DONNE BIEN SUR UN 50 POKE 7,Z / 256: POKE 6,2 - 256 
RESULTAT APPROCHE PAR DEFAUT * PEEK (7): PRINT : CALL 76 
(LE CALCUL NE PORTE QUE SUR D 8 + 37:R = PEEK (é) + 256 *x 
ES NOMBRES ENTIERS) PEEK (7): PRINT “MULTIPLICAT 
5 REM ION 2 : "R 
6 REM 60 POKE 7,2 / 256: POKE 6,2 - 256 
10 PRINT CHR#$ (4)"BLOAD PROGRAMM *x PEEK (7): PRINT : CALL 74 
E i.0BJ" 8 + 42:R = PEEK (é) + 256 * 
20 TEXT : HOME : INPUT “VOTRE NOM PEEK (7): PRINT "DIVISION 2 
BRE : "32: IF Z > 32767 THEN : U"R 
20 80 PRINT : PRINT "“MULT., BASIC : * 
30 POKE 7,2 / 256: POKE 6,2 - 256 Z * 2: PRINT : PRINT "DIVISIO 
*x PEEK (7): PRINT : CALL 76 N BASIC : "2 / 2: PRINT : GET 


PEEK (é) + 256 *x PEEK 2#: GOTO 20 


B8:R = 
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m.b.d.c. 


m.b.d.c. 


m.b.d.c. 
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Apple //e, Apple ///, Mac-Intoch, 


BFM 1 86. dragon, oric, alice, casio 


disquettes, Flexettes, 3M, Verbatim 


listing, rubans encreurs. 


le conseil, le matériel, les périphériques 


les logiciels, les consommables, 


le S.A.V. sur place. 
le Service Complet. 


172, RUE SOLFERINO. 59800 LILLE — TEL. (20) 57.91.87 
OUVERT DU MARDI AU SAMEDI DE 9h30 à 12h ET DE 14h30 à 19h 


AE355 : machine de bureau 


im 
SEPT. 84 


LAN CEMENT ! 


UonC 


Ai 


e AE 355, la super compact qui voit loin : 
une machine à écrire électronique de bureau 
une imprimante pour micro-ordinateur 


La NAKAJIMA AË 355 répond déjà aux exigences nouvelles de l'informatique 
Elle peut être utilisée en parallèle comme imprimante terminale. De plus, elle 
peut être connectée en série avec un ordinateur par l'intermédiaire d'un boîtier 
TF2 qui dispose d'une mémoire tampon de 2K 


10€ . 


rimante ordinateur 


e La nouvelle écriture électronique. 

La machine à écrire AË 355 comporte une électronique de pointe qui en 
fait une machine hautement perfectionnée : introduction électronique du 
papier, tabulation électronique, décimale, repositionnement automatique 
après correction, régulation électronique de la force d'impression, centrage 
et souligné, marges en retrait pour paragraphes et alinéas, touche 
1/2 espace … et la qualité “courrier” de ses marguerites. 


e De hautes performances. 

Cette machine présente une fiabilité exceptionnelle : clavier de 46 touches 
(100 caractères et signes), 2° clavier pour signes et symboles particuliers, 
grande ligne d'écriture 292 mm, curseur de rappel des marges, mémoire 
de correction automatique d'une ligne complète, sélection de pas d'écriture 
(10, 12,15), 6 rappels lumineux, conservation marges-tabulations : 7 jours. 


DISTRIBUTEUR 
t KARDEX = 
h æS EE | 


\d 
201, rue Carnot mc" 
94120 FONTENAY-S/BOIS 
Tél. :(1) 876.11.10 


LE 


13 





Programme 2 1049 204410 39 JSR TEST 





104C A9FF 40 LDA #$FF 
104E 2980 41 AND #$80 
1050 204410 42 JSR TEST 
1053 A980 43 LDA ##80 
**END OF PASS 1j 1055 2901 44 AND #1 
**END OF PASS 2 1057 204410 45 JSR TEST 
105A A9FF 46 LDA #$FF 
1000 1 ORG $1000 105C 85CE 47 STA $CE 
1000 2 ;JEU D’ESSAI POUR LE REGISTRE D'ETAT 105E 24CE 48 BIT $CE 
1000 3 ; 1060 20A410 49 JSR TEST 
1000 A900 4 LDA #0 1063 A9FF 50 LDA #$FF 
1002 48 5 PHA 1065 A200 si LDX #0 
1003 28 6 PLP 1067 8éCE 52 STX $CE 
1004 A940 7 LDA #$40 1069 24CE 53 BIT $CE 
1006 18 8 CLC 106B 204410 54 JSR TEST 
1007 4940 9 ADC ##$40 106E A911 ss LDA ##11 
1009 20410 10 JSR TEST 1070 4911 56 EOR ##11 
100C A940 11 LDA #$40 1072 204410 57 JSR TEST 
100E 38 12 SEC 1075 A9FF 58 LDA H#$FF 
100F E930 13 SBC ##30 1077 4980 59 EOR #$80 
1011 204410 14 JSR TEST 1079 20A410 60 JSR TEST 
1014 A740 15 LDA ##40 107C A497F éi LDA #$7F 
1016 38 16 SEC 107E 0980 62 ORA #$80 
1017 E950 17 SBC ##50 1080 204410 63 JSR TEST 
1019 204410 18 JSR TEST 1083 A940 64 LD ##$40 
101C A940 19 LDA ##$40 1085 0940 65 ORA #$40 
101E 38 20 SEC 1087 20A410 66 JSR TEST 
101F E?50 21 SBC ##50 1084 4940 67 LDA #$40 
1021 E900 22 SBC #0 108C 0900 68 ORA #0 
1023 20A410 23 JSR TEST 108E 20410 69 JSR TEST 
1026 A900 24 LDA #0 1091 A900 70 LDA #0 
1028 204410 25 JSR TEST 1093 0900 71 ORA #0 
102B A9FF 26 LDA #$FF 1095 201410 72 JSR TEST 
102D 20A410 27 JSR TEST 1098 A9FF 73 LDA ##FF 
1030 4908 28 LDA #8 1094 85CE 74 STA $CE 
1032 C908 29 CMP #8 109C CéCE 75 DEC $CE 
1034 20A410 30 JSR TEST 109E 24CE 76 BIT $CE 
1037 A908 31 LDA #8 1040 204410 77 JSR TEST 
1039 C910 32 CMP ##10 1043 60 78 RTS 
103B 204410 33 JSR TEST 1044 202F03 79 TEST  JSR $32F 
103E A908 34 LDA #8 1017 2062FC 80 JSR $FCé62 
1040 C902 35 CMP #2 104A A900 81 LDA #0 
1042 20A410 36 JSR TEST 10AC 48 82 PHA 
1045 A9FF 37 LDA H#FF 104D 28 83 PLP 
1047 297F 38 AND H#$7F 10AE 60 84 RTS 


: 1020- 50 E9 00 20 A4 10 A9 00  1068- CE 24 CE 20 A4 10 A9 11 

Récapitulation 2 1028- 20 A4 10 A9 FF 20 A4 10  1070- 49 11 20 Ad 10 A9 FF 49 

1030- A9 08 C9 08 20 A4 10 A9  1078- 80 20 A4 10 AY 7F 09 80 

1038- 08 C9 10 20 A4 10 A9 08  1080- 20 A4 10 A 40 09 40 20 

1040- C9 02 20 A4 10 A9 FF 29  1088- A4 10 A9 40 09 00 20 A4 

1000- A9 00 48 28 A9 40 18 69  1048- 7F 20 A4 10 A9 FF 29 80  1090- 10 A9 00 09 00 20 A4 10 

1008- 40 20 A4 10 A9 40 38 E9  1050- 20 A4 10 A9 80 29 01 20  1098- A9 FF 85 CE Cé CE 24 CE 

1010- 30 20 A4 10 A9 40 38 E9  1058- A4 10 A9 FF 85 CE 24 CE  10A0- 20 A4 10 60 20 2F 03 20 
1018- 50 20 A4 10 A9 40 38 E9  1060- 20 A4 10 A9 FF A2 00 86  10A8- 62 FC A9 00 48 28 60 





Programme 2.DEMO 6 REM 
° 10 D$ = CHR$ (4): PRINT D$"BLOAD 
1 REM JEU D’ESSAI POUR LE DECOUP PROGRAMME 1.0BJ": PRINT D$"BL 
AGE DU REGISTRE D'ETAT OAD PROGRAMME 2,0BJ": TEXT : HOME 
S REM : CALL 4096 
030F 5E0090 14 LSR 0O1,X 
Programme 3 0312 CA 15 DEX 
0313 7E0090 16 ROR O1 ,X 
##*END OF PASS 1 0316 88 17 DEY 
#*#*END OF PASS 2 0317 DOFS 18 BNE Si 
0319 A406 19 LDY SY 
0300 1 ORG $300 0318 C8 20 INY 
0300 2 ; 031C E8 21 INX 
0300 3 3CODAGE DE 8 CARACTERES EN 7 OCTETS 0310 E007 22 CPX #7 
0300 4 SY EPZ $6 031F DOE3 23 BNE S3 
0300 5 Oi EQU $9000 0321 24  ; 
0300 A200 6 LDX #0 0321 25  ; TRANSFERT DES 7 OCTETS RECODES 
0302 AO0! 7 LDY #1 0321 26 0 EQU $9100 
0304 8404 8 S3 STY SY 0321 A206 27 LDX #é 
0306 1E0090 9 So ASL O1,X 0323 800090 28 TO LDA 01,X 
0309 88 10 DEY 0326 9D0091 29 STA 0,X 
0304 DOFA 11 BNE S0 0329 CA 30 DEX 
030C ÀA404 12 LDY SY 0324 10F7 31 BPL TO 
030E E8 13 Si INX 032C 32 $ 
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032C 33 


032C 34 SX0 EPZ $8 
032C 35 Ssxi EPZ $9 
032C A200 36 LDX #0 
032E 8608 37 Sé STX SX9 
0330 8609 38 STX SX1 
0332 Eé09 39 INC SXi 
0334 1E0091 40 ASL 0,X 
0337 A609 41 LDX SX1 
0339 3E0091 42 Sa ROL 0,X 
033C 08 43 PHP 

033D E8 44 INX 

033E E008 45 CPX #8 
0340 F004 46 BEQ S5 
0342 28 47 PLP 


Récapitulation 3 
0300- A2 00 A0 01 84 06 1E 00 


0308- 90 88 DO FA À4 06 E8 5E 
0310- 00 90 CA 7E 00 90 88 DO 


Programme 3.DEMO 


ILORD PR3.DEMO 
ILIST 


1 REM  DEMONSTRATION DU CODAGE DE 
8 CARACTERES EN 7 OCTETS 5 
40 FOR I = O0 TO 7:CC$#(1) = 
( PEEK (GO + 13): 


5 REM 
é REM 
10 HIMEM: 9 *x 4096 - 1 


20 PRINT CHR$ (4)"BLOAD PROGRAM 50 


3 RECONSTITUTION DE 8 CARACTERES À PARTIR DE 7 OCTETS 


0343 B8 48 CLU 

0344 50F3 49 BVC S4 

0346 68 50 S5 PLA 

0347 A608 si LDX 5x0 

0349 S5E0091 52 LSR 0,X 

0340 E8 53 INX 

034D E007 54 CPX #7 

034F DODD 55 BNE Sé 

0351 BDO091  5é LDA 0,X 

0354 297F 57 AND ##$7F 

0356 9D0091 58 STA 0,X 

0359 60 59 RTS 
0318- F5 A4 06 C8 E8 E0 07 DO 0340- F0 04 28 B8 50 F3 68 Àé 
0320- E3 A2 06 BD 00 90 9D 00 0348- 08 SE 00 91 E8 EO 07 DO 
0328- 91 CA 10 F7 A2 00 86 08 0350- DD BD 00 91 29 7F 9D 00 
0330- 86 09 Eé 09 1E 00 91 A6 0358- 91 60 


0338- 09 3E 00 91 08 E8 EO 08 


E 3.0BJ":01 = 


+ 256 
30 TEXT : 


&C1): 


PRINT 


TERE NO 
PRINT : 


HOME : 
“CARACTERE NO 
PRINT C#C1): 
1, ASC (CH(I)D): NEXT : 


9 *x 4096:0 = Oi 


FOR I = 


"]" : "y: 


0 TO 7: PRINT 
GET C 
POKE O1 + 
PRINT 

: CALL 768 

CHRS# 

" CARAC 
NEXT 


PRINT 
"I" = °CCSCI): 


GET 2$: GOTO 30 





Une des contraintes du Basic réside 
dans la définition de ses variables : 
en effet, toutes les variables d’un 
programme sont globales, c’est-à-dire 
que les valeurs de chacune sont, à 
un instant donné, identiques quelque 
soit le niveau où l’on se situe dans le 
programme. 


L'utilisation de variables locales, en 
revanche, permet, lors de l'écriture 
d’un sous-programme, d’'affecter les 
noms des variables internes à ce 
sous-programme sans devoir se sou- 
cier si ces noms sont déjà utilisés par 
ailleurs. D'où une approche modu- 
laire plus simple des problèmes, et 
une programmation structurée plus 
efficace. 


La routine de PROCEDURE s'inspire 
du HBASIC et de HAIFA, elle per- 
met l’utilisation de sous-programmes 


récursifs avec passage de paramètres. 


Trois commandes sont disponibles : 


e & HOME initialise la pile et la 
place sur la carte langage (pour un 
Apple Il Plus) ou dans les 16K 
supplémentaires pour le //e ou le 
le, pour éviter d'encombrer la 
mémoire centrale. 


e & DEF <nom>:<variables éven- 
tuellement précédées de ”!”> 
marque le début d'un sous-pro- 
gramme. Le nom doit correspon- 
dre aux règles de syntaxe des ins- 
tructions DEF FN de l'Applesoft. 
Les variables suivant le point-vir- 
gule sont internes à l'exception de 
celles précédées par un point 
d'exclamation, qui sont alors glo- 
bales. 

Exemple : & DEF P1:A,B,!C 
Les variables globales ne peuvent 


Procédure & 
Philippe Le Dru 


être des chaînes de caractères. At- 
tention : celles-ci peuvent en outre 
être perdues si un nettoyage mé- 
moire intervient avant leur ‘resto- 
ration”. 

e & FN <nom>;<variables ou ex- 
pressions numériques> 
appelle le sous-programme. Les 
valeurs des variables ou expres- 
sions numériques sont calculées et 
affectées aux variables locales. 
L'ordre FN doit comporter le 
même nombre d'expressions que 
le sous-programme comporte de 
variables. 


Comme dans le cas de l'instruction 
EN, ou comme pour les PROCEDU- 
REs en Pascal, la définition d'une 
procédure doit en précéder l'appel. 





O0 REM PROCEDURE .DEMO 
1 REM 


S PRINT CHR$ (4)"BRUNPROCEDURE. 


O0BJO" 
10 & HOME 
11 GOSUB 100 
20 FOR I = i TO 11 
30 & FN PROC;I,TEST 


Pom's n° 14 


34 TEST = TEST + ji 


35 PRINT “GLOBAL:TEST="TEST 
40 NEXT : END 
100 & DEF PROC:;!'I,TEST 


120 I = I:TEST = TEST * 2 

125 PRINT "PROC: TEST="*TEST 
130 & END 

140 RETURN 


15 


| 


Procédure OBJO 


8000- À9 4C 8D F5 03 A9 10 
8008- Fé 03 À7 80 8D F7 03 
8010- C9 97 DO 03 4C ÂAé 80 
8018- B8 DO 03 4C 2F 80 C9 
8020- DO 03 4C Fé 80 C9 80 
8028- 03 4C FD 81 4C 7C D9 
8030- B1 00 09 80 85 14 20 
8038- DF 85 84 84 8B 20 é6AÀ 





Programme PROCEDURE 


0 © VO OU B ON — 


LISA 2.5 
METESLLELS SELLE LLES 
3& HOME 
54 DEF NOM;A,B,'C 
5& END 
3& FN NOM ;XxY,CC1) 
ÆLÉELLLELSSILSSLSSSE 

ORG $8000 

OBJ $800 
SUARIABLES 
BAS EPZ $D0 
HAUT EPZ $E0 
NU EPZ $1C 
FN EPZ $1A 
TX EP2Z $18 
WRT EQU $C083 
RAM EQU $C080 
ROM EQU $Cc082 
TP EP2Z $06 


5; ROUTINES APPLESOFT 


CHRGET EQU $00B1 
CHRGOT EQU $00B7 
FNGET EQU $DFEA 
CHKNUM EQU $DDéA 
ERRDIR EQU $E3Dé 
SYNCHR EQU $DECO 
PTRGET EQU $DFE3 
CHKCOM EQU $DEBE 
LET EQU $DA52 
RETERR EQU $D979 
3 
3INITIALISE & 
LDR #$4C 
STA $3FS5 
LD8A #LABEL 
STA $3Fé6 
LDA / LABEL 
STA $3F7 
RTS 
3AIGUILLAGE 
LABEL CMP #4$97 





ADDEF JSR CHRGET 
> ADRESSE VAR. NOM 
ORA #$80 
STA #14 
JSR FNGET 
STA $84 
STY $8B 
JSR CHKNUM 
ERRDIR 
LDA ‘’ ; 
SYNCHR 
$82 


+81 


3NB VAR =NB DE , +1 
LD #1 
STA NV 

1 JSR CHRGET 
BEQ >2 


L 
BNE <1 
NV 
BNE <«i 
NV 


LDY #0 
CH8A) ,Y 


#5 
BNE <0O 
CHRGOT 
CMP #0 
BEGQ >»>4 
3 RECHERCHE &END 
°3 JSR CHRGET 


BNE «3 


CHRGET 


;FIN LIGNE 
“4 LDY #2 
LDA (#88) ,Y 
BEQ >5 
CLC 
LDA 


 &HOME 

ee Matra ic 
CHRGET 
#0 
Pi+i 
P2+1 
HHAUT 
P1+2 
P2+2 
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130 
131 

132 
133 
134 
135 
136 
137 
138 
139 
140 
141 

142 
143 
144 
145 
146 
147 
148 
149 
150 
151 

152 
153 
154 
155 
156 
157 
158 
159 
160 
161 

162 
163 
164 
165 
166 
167 
168 
169 
170 
171 

172 
173 
174 
175 
176 
177 
178 
179 
180 
iai 

182 
183 
184 
185 
186 
187 
188 
189 
190 
191 

192 
193 
194 
195 
176 
197 
198 
199 


RTS 


3; SP EMPILE 


*0 LDX 


MEMERR : 
JMP $D410 
P1 STA 


HHAUT 
BGE MEMERR 
P2 LDA HAUT*256 
INC Pi+i 
INC P2+1 


3 

;ADRESSE FONCTION 

ADFN JSR CHRGET 
ORA #$80 
STA $i4 
JSR 
STA $8Â 


JSR 
3VERIF NB VARIABLES 

LDA #1 

STA NV 
>EMPILE TXTPTR 

LD£ $B8 

STA TX 

LDR $B9 

STA TX+1 
3; COMPTE LES VIRGULES 
"1 JSR CHRGET 

BEQ >2 


BNE «1 


LDX ##$2A 
JMP $D412 
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3 

3RECH VAR MUETTE 

*0 LD£ FN 
STA $B8 
LDA FN+1 
STA $B9 

3TEST TRANSFERT 
LDX #0 


BNE >4 
CHRGET 


*4 STX $1D 

3POS VAR MUETTE 
JSR PTRGET 
STA #85 
STA #06 
STY $86 
STY #07 

3SAUTE VIRGULE 
JSR CHRGOT 
BEQ >1 

CHKCOM 

1 LDA $B8 
STA FN 
LD£ $B9 
STA FN+1i 

> EMPILE VAR MUETTE 
BIT WRT 
BIT WRT 
LDY #4 

°2 LDA (#06) ,Y 
JSR EMPILE 
DEY 
BPL <2 

3 EMPILE POSITION 
LDA $06 
JSR EMPILE 
LDR $07 
JSR EMPILE 
BIT ROM 

3RESTAURE TXTPTR 
LD& TX 


: TEST 


3 CHARGE VAR MUETTE 
STA #08 
STA $09 
JSR LET 
LD8 $09 
BEQ dé 
3VAR À TRANSFERER 
*S JSR PTRGET 
STA 508 
STY $09 
:EMPILE POS TRANSF 
*é BIT WRT 
BIT WRT 
LD$ $08 
JSR EMPILE 
LD£ $09 
JSR EMPILE 
ROM 


270 3FIN D’INSTRUCTION 
271 JSR CHRGOT 
272 BEQ >3 

273 JSR CHKCOM 
274 3;STOCKE LE PTR 

275 LDA $B8 
276 STA TX 

277 LDA $B9 
278 STA TX+1 
279 JMP <0 

280 ;EMPILE RETOUR 

281 ‘3 BIT WRT 
282 BIT WRT 
283 LDA NV 

284 JSR EMPILE 
285 LD£ $B8 
286 JSR EMPILE 
287 LDA $B9 
288 JSR EMPILE 
289 LD£S #75 
290 JSR EMPILE 
291 LDA $76 
292 JSR EMPILE 
293 LDA #$C2 
294 JSR EMPILE 
295 BIT ROM 
296 ;EXECUTION SP 

297 LD£ FN 

298 STA $B8 
299 LDA FN+i 
300 STA $B9 
301 RTS 

302 qu=====szz===z== 
303 ; & END 

204 y 
305 ADEND JSR CHRGET 
306 BIT RM 
307 JSR DEPILE 
308 CMP #$C2 
309 BEG >0 

310 BIT ROM 
311 JMP RETERR 
312 ‘0 JSR DEPILE 
313 STA $76 
314 JSR DEPILE 
315 STA $75 
316 JSR DEPILE 
317 STA $B9 
318 JSR DEPILE 
319 STA $B8 
320 ;DEPILE NB VAR 

321 JSR DEPILE 
322 STA NV 

323 ;SI NUL ->RETOUR 
324 °3 CMP #0 

325 BNE 1 

326 BIT ROM 
327 RTS 

328 ‘1 JSR DEPILE 
329 STA $09 
330 JSR DEPILE 
331 STA $08 
332 JSR DEPILE 
333 STA $07 
334 JSR DEPILE 
335 STA #06 
336 LDA $09 
337 BEQ >4 

338 ; STOCKAGE PROVISOIR 
339 LDY #5 








RENDEZ VOTRE APPLE * ENCORE PLUS” 


Cartes et accessoires 
additionnels compatibles APPLE II @ 


POUR JEUX VIDEO ET 


MICRO- 
ORDINATEURS 
INTERFACE 
PHS 60 
UNIVERSELLE 
Compatible 
tous micro-ordinateurs 
et jeux vidéo 
Entrée PERITEL tr. 
Sortie UHF - SECAM L 
Régulateur de tension incorporé. 


| CARTE LANGAGE 16 K RAM 


Pour extension du 48 K RAM en 64 K. Compatible 


FORTRAN PASCAL, LISP, BASIC 


D Entièrement équipée 
CARTE INTERFACE POUR 2 
FLOPPY-DRIVE 


CARTE DE PROGRAMMATION 
8716-2732-2764 


Programmation lecture/copie 
chargement de programme directement sur 2716 
Entièrement équipée 


CARTE DE CONNECTION 
série RS 238 C » 


équipé de 2 trimes 


PROMO 
pour recherche 


\e du point zéro 


VENTILATEUR «FAN» 
pour Apple 
498 F 


ALIMENTATION A DECOUPAGE 


COMPATIBLE «APPLE» 


+ 5V-5ÂAe + 12V.1, 


5Ae 
- 12V.05Ae—5V.0,5A 


FLOPPY DRIVE 
pour APPLE 


5 POUCES 
2890 | ER 


-259 toi POUR FLOPPY 


5” SF-DD 48 TPI, l'unité 
par 10 pièces l' unité 19 
3' double 
Az simple face DD 40 p 


face DD, 500 


CARTE AM = 
Car ) \E 


Emulation disk-drive 
sous DOS, PASCAL ou 
Entièrement équipée 


CPIM 


SUPER 
PROMO «MONITOR BASE» 
3 POUCES SOCLE ORIENTABLE POUR 
MD3 HITACHI| MONITEURS NB ou DOVTEUR 


S'oriente en toutes 
directions - g 
Angle de 12,5° en 
ë 81F position avant et arrière 
{soit 25°) 

a s doses Fe . . Mobile ou fixe avec blocage 

6 e Patins antidérapants 

69 F e Supporte plus de 80 kg 


nn. FC 4 


199 F 


80 car. x 24 lignes. Résolution 7 x 9. Compatible avec 

la plupart des traitements de texte BASIC 

PASCAL, CPIM, MODEM : 

Entièrement équipe 749" Fonctionne sous CP/M | 
Utilisation de tout logiciel sous CP 

Entièrement équipée 


lre Version KITS EN PROMOTION 


CARTE D'UNITE CENTRALE 
double processeur 6808 et Z 80. 64 K 
RAM 7 siots d'extensions. Fonctionne sous CPIM 


Entièrement équipée 
{sans ROM) 


68 touches. Alphanumérique. | 
Majuscules, minuscules, décimales, 
8 touches de fonctions programmables 950 F 


ALIMENTATION 20 v.54779 F 
COFFRET pour carte de base, 698 F 


clavier et pavé numérique 


LENSEMBLE : 5199 F 
CARTE «SPEETCH» 


LE 
| 
| 
| 
| 


Carte langage 
en Anglais et phonèmes 


MONITEURS 
ZENITH 18” 


écran vert 


Ecran ambre 


Couleur 


Moniteur couleur RTC 


1ple à monter. Avec Péritel 


et mécanique complet 


+ APPLE est une marque déposée et appartient à APPLE COMPUTER S.A. 


pour 
moniteur 


2e Version couleur 


{modules montés, câblés, équipés) 


Carte d'unité 
centrale avec 6502 (sans ROM) 


2290 F 


Pour toutes marques sortie CENTRONIC'S - Buffer 


64 K RAM 
1690” 


Livrée équipée en 16 K 
CARTE INTERFACE POUR 4 


{extension jusqu'à 64 K) 
L'ENSEMBLE INPAINARTES EN a 


érie per met «€ 


Chaque élément peut-être acheté séparément pra ge ". 


ALBER XIV 


le moniteur couleur 14’’ 
de votre micro 


GP 80A SEIKOSHA 


e Entraînement à friction < Graphique 
e 2 épaisseurs 
« Interface para 

compatible CENTRONICS 


GP 500A 
STAR GEMINI 10 x 
EPSON À x 40 


es D'RPAON 
EN KIT: 


180'} 





CONDI 
Pai 


119 F 


ACER MICRO 


42, rue de Chabrol, 75010 Paris. 
Tél. 770.28.31. 


ENTES PAR CO 
Jursement 
s frais de p 





340 DEY 


341 *5 LDA (#06) ,Y 
342 PHA 

343 DEY 

344 BPL <5 

345 ;RESTAURE VAR MUET 
346 ‘4 LDY #0 

347 ‘2 JSR DEPILE 
348 STA (#06) ,Y 


349 INY 

350 CPY #5 

351 BNE <2 

352 ; TRANSFERT 

353 LDA #09 

354 BEQ >7 

355 LDY #0 

356 ‘4 PLA 

357 STA (#08) ,Y 


358 INY 

359 CPY #5 
360 BNE <é 

361 ;TEST FIN 

362 °7 DEC NV 

363 LD NV 

364 BNE «1 

365 BEQ «3 

366 === == 
367 END 





Si l'apprentissage du Basic ne me 
pose pas trop de problèmes, l'utilisa- 
tion de l’assembleur ne me paraît 
pas aussi évidente. 

En conséquence, un bon exercice 
consiste, selon moi, a décortiquer les 
routines publiées dans Pom's pour 
les adapter à de nouvelles situations. 


Ainsi, j'ai pensé qu’une modification 
de la routine de disquette virtuelle 
16K de Michel Haag (Pom's 12) 
pourrait rendre quelques services aux 
possesseurs de carte 80 colonnes 
étendue” en transformant cette ré- 
serve d’octets en un pseudo-disque 
bien pratique. 


Les deux programmes publiés ici 
permettent d'atteindre cet objectif : 


e La routine RWAUX proprement 
dite, qui sera logée à la place du 
secteur $F du directory dans la 
carte langage, afin de la rendre in- 
dépendante des -commutateurs 
RAMRD et RAMWRT, et qui 
donne accès à la pseudo-dis- 
quette. 


e La routine RWAUXINIT qui se 
charge de la mise en place de 
RWAUX, du VTOC, du directory 


Disque virtuel 64K 


et d'un patch du DOS qui permet 
l'appel du disque virtuel. 


Pour plus de commodité, les deux 
routines sont regroupées dans un 
même code objet AUTO RWAUXI- 
NIT. Après l'exécution de ce pro- 
gramme par BRUN, tout appel au 
second lecteur D2 sera dirigé sur le 
disque virtuel logé dans l'extension 
mémoire de la carte 80 colonnes 
étendue. Le disque ainsi constitué se 
compose de 11 pistes complètes, 
d'une piste de 12 secteurs et d’une 
piste affectée au catalogue et à la 
routine d'exploitation. 


Cette nouvelle version de pseudo- 
disquette n'est pas moins volatile que 
la précédente, bien sûr. Avant 
d'éteindre votre Apple, n'oubliez 
donc pas de transférer les informa- 
tions stockées en RAM sur une véri- 
table disquette dans le lecteur D1. 
Vous pouvez réaliser ce transfert di- 
rectement à partir de vos program- 
mes, en mode immédiat pour les 
programmes et fichiers binaires, ou, 


Jacques Rey 


de façon générale, au moyen du FID 
classique. 


Si vous possédez deux lecteurs de 
disquettes, vous pouvez reconnecter 
le second en D2 par POKE 483720. 
Un POKE 483722 redirigera tout 
appel à D2 sur la carte d'extension. 


Les pistes $11, $12 et $13 se trou- 
vant dans la carte langage, il peut 
être utile de verrouiller les huit der- 
niers secteurs de la piste $13 pour y 
loger une copie du moniteur, ce qui 
permet, par exemple, d'examiner le 
VTOC et le directory avec la 
commande ”’H” du moniteur étendu. 
Pour ce faire, ‘’bootez” avec une dis- 
quette contenant le fichier INTBASIC 
puis passez en moniteur et tapez : 


C08B N CO8B N D084:00 00 


Les secteurs $8 à $F de la piste $13 
sont ainsi verrouillés et le moniteur 
ne sera pas écrasé par les informa- 
tions chargées dans le pseudo-dis- 
que. 





LISA 1.5 


i 5 ER HE DE DE DE ED DE EEE XXE NE NE 6 EE 6 6 EE 
2 5% #* 
3 3% RWAUXINIT * 
4 :;%x x 
9 3% J. REY CJUIN 84) x 
6 ;% # 
7 3% (D'APRES M.HAAG) x 
8 ;+%x *% 
4 SÉRHKHEXH XX XNHMN NI H HR HENEHE NE HN DE HE NE 
10 ; 

LA 

12 ORG $4F00 

13 ; 

14 PTR EPZ $2À 

15 3 

16 INIT LD $C08B 3; VALIDATION DU ER BANC 
17 LDA $C08B 

18 LDA #$00 

19 STA PTR 3MISE À ZERO DU VTOC ET DU DIR 
20 LDA #$D0O 

21 STA PTR+i 

22 Bi LDA #$00 

23 LDY ##$00 

24 B2 STA (PTR),Y 





BÉRSCENERRRNRRR ER RRRRR ee SSRNNSNRRNNNES 








3INIT DES OCTETS #0 À $37 DU VTOC 


3INHIBE LES SECTEURS 0,1,4,5 DE LA PISTE $04 


:LIBERATION DES PISTES #5,8,9,A,B,C,D,E,F,12 ET13 
; PAR MISE À $FF DES OCTETS CORRESPONDANTS 
;DU UTOC 


3INITIALISATION DES OCTETS DE 
3 CHAINAGE DES PAGES DU DIRECTORY 


CHARGEMENT DE LA ROUTINE RUAUX À LA PLACE DU SECTEUR $F DU DIR 


DECONNECTION DE LA CARTE LANGAGE 


MISE EN PLACE DU PATCH PERMETTANT L'APPEL DE RWAUX 


26 BNE B2 
27 INC PTR+i 
28 LDA PTR+1 
29 CMP #H$EO 
30 BNE Bi 
31 : 
32 3INITIALISATION DU VTOC 
33 ; 
34 LDA #H$DO 
35 STA PTR+1 
36 LDY ##$04 
A 37 B3 LDA VTBL1,Y 
S 38 STA (PTR),Y 
553 39 DEY 
E.: 40 BPL B3 
a 41 LDA #$7A 
É= 42 STA $D027 
E- 43 LDA ##0D 
25 44 STA $D030 
# 45 LDA HK$23 
# 46 STA $D034 
Ex 47 LDA ##10 
HA 48 STA $D035 
= 49 LD #$01 
50 STA $D037 
51 LDA H#$CC 
52 STA $D049 
93 3; 
54 LDA #$FF 
55 LDX ##17 
56 B4 LDY UVTBL2,X 
57 STA CPTR),Y 
58 DEX 
59 BPL B4 
60 ; 
éi LDA ##$D2 
62 STA PTR+1 
63 LDY ##0i 
64 B5 LDA #11 
65 STA CPTR),Y 
66 INC PTR+1 
67 LDA PTR+Ii 
68 CMP #$DF 
69 BNE BS 
70 DEC PTR+i 
71 LDY ##$02 
72 LDX ##0D 
73 Bé TXA 
74 STA CPTR),Y 
75 DEC PTR+i 
76 DEX 
77 BNE Bé 
78-35 
79 3 
80 ; 
81 LDA #$DF 
82 STA PTR+1 
83 LDY ##00 
84 B7 LDA $5000 ,Y 
85 STA CPTR),Y 
86 DEY 
87 BNE B7 
88 ; 
89 ; 
90 ; 
91 CLC 
92 LDA +$C082 
93 LDA $CO08A 
94 ; 
95 ; 
976 ; 
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97 LDY ##$18 


78 B8 LDA PATB,Y 
99 STA $BCEB,Y 
100 DEY 

101 BPL B8 

102 RTS 

103 ; 

104 ; TABLES 

105 


3 
106 UTBLI HEX 04110E030000FE 
107 VUTBL2 HEX 31484C4D58595C5Dé061646568696CéD7071 74758081 8485EA 
108 PATB HEX 84488549A002B148C902D00DAD8BC0ADS8BCO4C6EDF4CEBBCEA 
109 END 





AUTO RWAUXINIT.OBJ 


4F00- ÀD 8B C0 AD 8B CO A9 00 
4F08- 85 2A À9 DO 85 2B A9 00 





Î 1 ARR X EH MH DE NME DE NX DE DE DE JE EEE € 6 4F20- DO 85 2B A0 0Cé B9 98 4F 
2 3% * 4F28- 91 2A 88 10 F8 A9 7A 8D 
3 x RUAUX # 4F30- 27 DO AS 0D 8D 30 DO AS 
4 ;x x 4F38- 23 8D 34 DO A9 10 8D 35 
S 3x JACQUES REY CJUIN 84) *x 4F40- D0 A9 01 8D 37 DO AS CC 
6 :* ps 4F48- 8D 49 DO A9 FF A2 17 BC 
, 4F50- 9F 4F 9i 24 CA 10 F8 A9 

7 3* ADAPTATION DE L'IDEE DE x 4F58- D2 85 2B A0 01 A9 11 91 
8 x M. HAAG . 4Fé0- 24 Eé 2B A5 2B C9 DF Dü 
7 3% * 4Fé8- F4 Cé 2B A0 02 A2 OD 8A 
10 3 XXE HE HE DE DE DE HE DE DE DE JE DE DE DE DE EE ÉD JE EE JE 4F70- 91 24 Cé 2B CA DO F8 A9 
11 ; 4F78- DF 85 2B A0 00 B9 00 50 
12 ORG $DF67 4F80- 91 24 88 DO F8 18 AD 82 
13 OBJ $5067 4F88- CO AD 8A CO A0 18 B9 B8 
14: 4F90- 4F 99 EB BC 88 10 F7 60 
: | 4F98- 04 11 0E 03 00 00 FE 31 

15 à EMULATEUR DE DISQUETTE SUR CARTE AUXILIAIRE AE ÔUE :06 AC DD SO ee en ms 6 
1e 4FAB- 61 64 65 68 69 6C 6D 70 
17 I0OBP EPZ $48 4FBO- 71 74 75 80 81 84 85 EA 
18 PTR EPZ $2A 4FB8- 84 48 85 49 A0 02 Bi 48 
19 BUFPTR EPZ $3E 4FCO- C9 02 DO 0D AD 8B CO AD 
20 SECT  EPZ #2D 4FC8- 8B CO 4C 6E DF 4C EB BC 
21 TRACK EPZ $2E 4FD0- EA E4 EA EA EA EA EA EA 
22 ; 4FD8- EA EA EÂ EA EA EA EA EA 
23 TRK EQU +4 4FE0- EA EA EA EÂ En EA EA Eñ 
25 BUF EQU $6 AFF0- EA EA Eñ EA EAÂ EA EA EA 
4FF8- EA EA EA EA Eñ EA EA EA 

26 CMD EQU $0C 5000- 00 D2 CF DS D4 C9 CE C5 
27 DRV EQU #02 5008- A0 A0 D2 D7 Ci D5 D8 00 
28 ; 5010- A0 A0 A0 A0 A0 A0 A0 A0 
29 TB! HEX 100704 ;PISTES INTERDITES 5018- A0 A0 A0 A0 A0 A0 A0 A0 
30 TB2 HEX 00010405 ; SECTEURS INTERDITS 5020- 00 CD AE C8 Ci Ci C7 A0 
31 ; 5028- AF A0 CA AE D2 C5 D9 00 
32 ;TRANSFERT DES POINTEURS 0 ON pe Ale. A0"20 A0 EN 


3 5040- 00 00 00 CA D5 C9 CE A0 
34 RWAUX LDY HBUF 5048- A0 Bi B9 B8 B4 00 00 00 
35 LDA (IOBP),Y 5050- AO A0 A0 A0 A0 A0 A0 A0 
36 STA BUFPTR 5058- A0 A0 A0 A0 A0 A0 A0 A0 
37 INY 5060- 00 00 00 00 00 00 G0 10 
38 LDA CIOBP) ,Y 5068- 07 06 00 01 04 05 AC 08 
39 STA BUFPTR+1 5070- Bi 48 85 3E C8 Bi 48 85 
" re OO 4 Cl dd ee to 0 
es ma ee 7 5088- 4F C9 11 FO 2C C9 04 30 
si 5090- 47 A0 02 D9 67 DF FO 40 
43 LDY #TRK 5098- 88 10 F8 A9 00 85 2A A5 
44 LDA CIOBP),Y S0AO- 2E 38 E9 04 0 0À 0A 04 
45 STA TRACK 50A8- 65 2D 85 2B A0 03 D9 éA 
4é ; 50B0- DF FO 25 88 10 F8 4C C8 
47 ;DETERMINATION DES PISTES ET SECTEURS 50B8- DF A9 00 85 2A 18 A5 2D 
48 ; 50C0- C9 OF FO 14 69 DO 85 2B 
49 CMP #$14 : : T 50C8- A0 OC Bi 48 C9 00 FO 09 
50 BPL ERR SN RO ORIETE SU S0D0- C9 O1 FO 0E C9 02 FO 19 
04 AD 
si CMP #$11 ; BRANCHE SUR UTOC OÙ DIR EDS A D DO 
32 BEQ DIR 50E8- 2A 91 3E 88 DO F9 18 90 
93 CMP #$04 3; ERREUR SI PISTE « $04 50F0- E8 A0 00 8C 05 CO Bi 3E 
54 BMI ERR 50F8- 91 24 88 DO F9 18 90 


#8: à Ex 


Lecerers] a: Len 
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VERIF1I CMP 


VERIF2 CMP 


DIRECTORY 


IR LDA 
STA 
CLC 
LDA 
CMP 
BEQ 
ADC 
STA 


EXECUT I ON 


Ms me we 


Xa LDY 





##$02 
TB1,Y 
ERR 


VERIFI 
#$00 
PTR 
TRACK 


#$04 


SECT 
PTR+1i 
#$03 
TB2,Y 
ERR 


VERIF2 


DE LA COMMANDE 


#CMD 
CIOBP) ,Y 
#$00 

RET 

#$01 
READ 
#$02 
WRITE 


$co02 
$C004 
$COSA 


#$00 

$C003 
CPTR) ,Y 
CBUFPTR) ,Y 
BRI 

RET 

#$00 

$C005 
CBUFPTR) ,Y 
CPTR) ,Y 
Bu 


RET 


ss 


; ERREUR SI PISTE = $06,#07 OÙ $10 
;s (PAGE GRAPHIQUE ET PORTS) 


PAGE MEMOIRE= $10x(TRACK-4) 
PLUS SECT 


ne un 00 vs 08 ee 


; ERREUR SI PISTE #04 SECTEURS $0,#1,#4,$5 
; (PAGES 0,1 ET TEXTE 80C0L) 


, 


3; CALCUL DE LA PAGE DU CATALOGUE 
ERREUR SI SECTEUR $0F 
; (EMPLACEMENT DE LA ROUTINE) 


3; PROVOQUE 1/0 ERROR 


;REMET LES COMMUTATEURS EN POSITION 
;LECT/ECRIT EN MEMOIRE PRINCIPALE 
; COMMUTE LA MEM EN $DFE2 QUI CONTIENT RTS 


;MEM AUX EN LECTURE 


3MEM AUX EN ECRITURE 


“ BSAVERWAUX . OBJ ,4$S5000 ,L#100" 


: RSR LETT n: 
TT Te ke 
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Premier contact 
Conception du logiciel 


Appleworks est un logiciel présenté 
comme ‘intégré”. Il comporte : 


e un traitement de texte, parent 
d'Applewriter : 

e un gestionnaire de fichier, très 
proche de Quick File : 

e un tableur, compromis entre Visi- 
calc (ou plutôt Magicalc) et Multi- 
plan. 


Il n'est en fait que partiellement inté- 
gré. En effet : 


1 - Il est possible de ‘’couper/coller” 
à l'intérieur d'un document, ou entre 
2 documents DE MEME TYPE (2 ta- 
bleaux par exemple), mais non entre 
documents de types différents (on ne 
peut effectuer de calculs par le ta- 
bleur sur les données d’un fichier, 
sauf, et uniquement au moment 
d'une création de document nou- 
veau, à transiter par un fichier DIF !). 


2 - Il est également possible, mais 
moins direct, de passer d’un tableau 
ou d’un état composé à partir d’un 
fichier, vers le traitement de texte (on 
utilise alors une sous-option ‘clip 


board” de l'option d'impression). 


La gestion du "clip board” n'est pas 
très simple. Par la pratique, nous 
avons cru comprendre que les ex- 
traits DE MEME NATURE s'entas- 
saient et étaient ensuite repris en 
bloc, alors qu'un extrait d’un autre 
type vidait le clip board. 

Tout a été fait pour faciliter l’appren- 
tissage : nombreuses fonctions help” 
à différents niveaux, identité des 
commandes dans les diverses 
composantes, utilisation relativement 
aisée de toutes les commandes de 
l'Apple /'e (les 4 flèches de direction 
et les pommes”). 


Le traitement de texte 
Forces 


Option ‘’couper/coller” puissante et 
commode (mais avec deux modes 
d'utilisation différents selon qu'on 
travaille entre textes, ou bien entre fi- 
chier ou tableau et texte). 

Désignation pratique des zones à 
supprimer, déplacer, dupliquer, ‘’cou- 
per/coller”. 

Nombreuses options d'impression, 
très puissantes quand on en a bien 
acquis le mécanisme. Possibilité d'in- 
tervention au clavier en cours d’'im- 
pression. 


Faiblesses 


Absence d’une fonction Glossaire. 
Pas de notion de paragraphes (mais 
il existe un système de ‘mar- 
queurs”). 

Quelques problèmes de justification 
(il n'existe pas de justification gauche 
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Appleworks à l’essai 


ou droite, et les options d'impression 
perturbent la justification totale). 


Synthèse 


S'il ne s'agissait que d'un nouveau 
traitement de texte, il n’y aurait pas 
de quoi déclencher l'enthousiasme. 

Il faut donc voir celui-ci uniquement 
dans le cadre de l'intégration avec ta- 
bleur et gestionnaire de fichier. Alors, 
on ne peut qu'être séduit par le fonc- 
tionnement du ‘’couper/coller” direct 
(entre textes), ou indirect, par l’inter- 
médiaire de l'option d'impression 
(entre état ou tableau et texte). 


Le gestionnaire de 
fichier 
Forces 


Ce sont essentiellement celles de 
Quick File (simplicité et souplesse, 
travail très commode à l'écran, 
confection aisée d'états et d'étiquet- 
tes). 

À ces avantages, il convient d'ajouter 
bien entendu la fonction ‘cou- 
per/coller” dans un fichier ou entre 
deux fichiers et la fonction impres- 
sion sur ‘clip board” à destination du 
traitement de texte. 


Faiblesses 


Comme les avantages, les inconvé- 
nients sont essentiellement ceux de 
Quick File (insuffisance de contrôles 
d'entrée, quelques difficultés de ma- 
nipulation du curseur, capacité assez 
limitée). 

Attention aux ‘sorties du système” 
dans le cas de certaines options im- 
primante non admises. 


Synthèse 


Plus encore que dans le cas du trai- 
tement de texte, on pourrait être 
tenté de dire que ce nouveau ges- 
tionnaire de fichiers est un de trop: 
Quick File suffisait. 

Bien entendu, c'est encore dans l'in- 
tégration (entre fichiers, et avec le 
traitement de texte) qu'il faut en re- 
chercher la justification. 

On peut alors regretter qu'il n'y ait 
pas une communication directe pos- 
sible avec le logiciel tableur pour ef- 
fectuer facilement des calculs à partir 
d'éléments puisés dans un fichier et 
retourner les résultats vers le fichier. 


Le tableur 
Forces 


Maniement commode de groupes de 
rangées, colonnes ou cases. 
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Possibilité de faire apparaître et d’im- 
primer le tableau des formules de 
calcul, de trier en ordre alphanuméri- 
que où numérique dans une co- 
lonne, de rechercher une case par 
son contenu (alphabétique). 

Et bien entendu, fonctions ‘cou- 
per/coller” et impression sur ‘clip 
board”, ainsi que possibilité d'utiliser 
un format DIF (en entrée et en sor- 
tie). 


Faiblesses 


Pas de ligne de rappel des comman- 
des disponibles (il faut passer par 
“help”) et pas de “help” pour les 
fonctions de calcul. 

Dans la duplication des formules, 
‘no change” en option par défaut 
(chacun sait qu'on utilise beaucoup 
plus souvent relative”). 

Pas de fonction de consolidation de 
plusieurs tableaux. 


Synthèse 


Un nouveau tableur, qui a pris beau- 
coup des fonctionnalités apparues 
progressivement dans ce domaine 
depuis l'ancêtre” Visicalc. Il est tou- 
tefois fort regrettable que les auteurs 
n'aient pas cru devoir y adjoindre 
une fonction de consolidation. 

Par ailleurs, mêmes observations que 
pour le gestionnaire de fichiers en ce 
qui concerne l'aspect d'intégration. 


En resumé 


Appleworks est probablement proche 
de ce qu'on peut faire de mieux en 
matière de logiciel intégré, compte 
tenu de la capacité et des performan- 
ces de l'Apple //e, même si quelques 
détails irritent. 

Il serait intéressant de le comparer de 
façon détaillée à Jane, autre logiciel 
intégré pour la même machine, fonc- 
tionnant selon le principe, cher à 
Apple, de la souris graphique exploi- 
tant un jeu d'icônes. Jane possède 
en outre une gestion multifenêtres. 


Forces 


Avant tout, d'honnêtes possibilités 
d'intégration entre trois logiciels : 
passage très simple entre des tâches 
de même type, assez simple entre ta- 
bleur ou gestionnaire de fichiers et 
traitement de texte, un peu plus 
compliqué et moins complet entre 
gestionnaire de fichiers et tableur. 

Fonctions communes (gestion de dis- 
que et de fichiers, hard copy, 
“help”. }) pratiques et efficaces. 
Très bonne standardisation des 


commandes des diverses composan- 
tes. 


Hi 


de 
a 
2 
ee 
ut. 
F*, 
14 
+ 
È 
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S'agissant de chacun des logiciels : 


Traitement de texte assez classique, 
avec de bonnes facilités pour dési- 
gner des zones de travail et de nom- 
breuses options d'impression. 


Gestionnaire de fichiers presque 
identique à Quick File, simple d'em- 
ploi, souple et efficace, avec confec- 
tion d'états aisée. 

Tableur proposant une bonne syn- 
thèse des réalisations dans ce do- 
maine, avec une gestion commode 
par groupes de lignes, colonnes ou 
cases. 


Faiblesses 


On peut regretter (mais l'Apple //e 
est ce qu'il est), qu'il n’y ait pas une 


option ”couper/coller” généralisée 
entre les trois logiciels qui composent 
Appleworks. On peut également re- 
gretter qu'il n’v ait pas un quatrième 
logiciel, un éditeur graphique. Notons 
toutefois que le format DIF permet 
théoriquement d'utiliser Visicalc. Mais 
2e dernier fonctionne sous DOS 
Nous avons connu à plusieurs repri- 
ses des problèmes de sortie irrémé- 
diable du logiciel, avec perte du der- 
nier travail exécuté, lors de l'utili- 
sation de certaines options d'impres- 
sion. 


Pour chacun des logiciels pris indivi- 
duellement : 


Traitement de texte dans lequel on 
aurait aimé retrouver le glossaire 


d'Applewriter. La justification des 
textes est traitée de façon un peu 
sommaire. 


Gestionnaire de fichiers un peu limité 
(comme Quick File) dans la structure 
des enregistrements, et sans contrôle 
d'entrées. 


Tableur auquel manque essentielle- 
ment la fonction de consolidation 
entre divers tableaux. De ce côté, 
pas de progrès par rapport à Visicalc. 


En synthèse 


Une note BIEN, mais il manque rela- 
tivement peu de choses pour en faire 
une note TRES BIEN. 





Jane : la sauce Macintosh 


Jean-Michel Gourévitch 


Un traitement de texte, un tableur et 
une base de données réunis dans le 
même programme, sur la même dis- 
quette, avec des ponts permettant de 
passer d'une application à l'autre. 
Une des premières applications de la 
souris”, utilisable sur Apple Il, II+, 
/le et /{c, voici Jane, un logiciel à la 
présentation géniale, mais dont le ra- 
mage n'égale pas tout à fait, hélas, le 
plumage. Il a été écrit par deux petits 
génies de 21 ans dont l’un, Howard 
Marks fit ses études secondaires chez 
nous, au Lycée Janson de Sailly de 
Paris. Ce détail n’est pas inutile : il 
explique pourquoi ce programme dé- 
veloppé aux Etats Unis (la société 
distributrice a été créée avec les 
fonds d'une société d'exploitation de 
casinos) est aussi parfaitement fran- 
cisé. 

Ce n'est pas la moindre des qualités 
d'un logiciel parfaitement “bluffant”. 
D'abord un mot sur son aspect phy- 
sique. Avouons-le tout de suite, cette 
Jane-là est diablement séduisante. 
Après une démonstration bien 
menée, il est difficile de ne pas cra- 
quer pour la belle... 

Le manuel représenterait ce qu'on 
peut attendre de mieux d'un manuel 
(clair, illustré d'exemples et de des- 
sins) s'il n'était parfaitement inutile. 
Jane est en effet livré en quatre dis- 
quettes. L'une est une auto-démons- 
tration parfaitement menée et qui 
donne envie de prendre de suite la 
souris en main. La seconde (de cou- 
leur grise) est la disquette système. 
Le coeur du logiciel. La troisième 
(noire) est une disquette de données. 
qui contient aussi des exemples et 
des utilitaires. La dernière (jaune) est 
la disquette d'aide. À chaque fois 
qu'il en est besoin, le programme de- 
mande d'insérer la disquette néces- 
saire dans le second drive en la dési- 
gnant par sa couleur (avis aux 
pirates). Si ce n'est pas la bonne, il 
insiste. 


Mais, c'est une fois la disquette sys- 
tème dans le lecteur et l'Apple sous 
tension que le feu d'artifice 
commence. Jane utilise icônes et 
souris comme Macintosh: à propos 
de souris, un détail important: la 
dernière version de Jane fonctionne 
avec la souris d'Apple, et même, 
pour ceux qui en sont encore dému- 
nis -les possesseurs d'Apple Il, [+ et 
‘/e apprécieront-, avec un simple 
joystick (il faut alors reconfigurer la 
disquette grise). Les icônes, confor- 
mes à ce nouveau langage dont raf- 
folent les habitués des aéroports in- 
ternationaux, sont plutôt bien 
réussies et diffèrent selon les applica- 
tions (celles de la base de données 
sont les moins claires), On trouve, 
comme dans le Mac, une poubelle 
pour la destruction de fichiers. Et. 
comme avec le Lisa, une petite mon- 
tre vous fait patienter lors des accès 
du logiciel à la disquette. 


Le premier problème c'est, hélas, 
que cette montre est bien nécessaire. 
Les accès disquettes sont fréquents et 
lents. Une fois qu'on désigne un dos- 
sier à ouvrir en cliquant la souris, il 
faut par exemple une bonne dizaine 
de secondes avant d'y avoir accès. 
C'est le prix à payer pour voir s’affi- 
cher sur le moniteur d’un Apple /! la 
réplique de l'écran de Mac tout en 
vert (ou presque). À partir de là, on 
déplace sa fenêtre sur l'écran. on 
ouvre de nouveaux dossiers ou de 
nouvelles applications (on peut en- 
tasser jusqu'à quatre dosssiers sur le 
’bureau”}. On peut trimbaler un élé- 
ment d'une application vers une 
autre, insérer par exemple une liste 
de chiffres du tableur dans le traite- 
ment de texte (grâce aux icônes ‘ci- 
seaux”, ‘caméra’ et ‘pot de colle‘} 
plus facilement, il faut le reconnaître. 
que dans Appleworks. l'autre pro- 
gramme ‘intégré vendu. quant à 
lui, par Apple. On l'aura compris. 


tous ceux qui ne se sont jamais servis 
d'un tableur, d'un gestionnaire de fi- 
chiers ou d’un traitement de textes 
(beaucoup de nouveaux possesseurs 
d'Apple //c se reconnaîtront dans ce 
portrait) seront à la fête. Avec toute- 
fois une nuance : la fréquence des 
accès disquette nécessite plus que 
pour tout autre logiciel un second 
drive. 


Pour les autres, les vétérans d'Ap- 
plewriter, les Multiplanistes (-pla- 
neurs ?) chevronnés et les CX-Multi- 
gestionnaires confirmés, Jane relè- 
vera plus du jeu de société que de 
l'outil de travail. Résumons en vrac : 
un traitement de texte ne pouvant af- 
ficher (à condition d'avoir choisi les 
plus petits caractères écran) que 70 
colonnes, “l'oubli” d'un glossaire, et 
un choix de codes d'impression étri- 
qué: un gestionnaire de fichiers dont 
les rubriques sont limitées à 25 ca- 
ractères et le total des informations 
par saisie (rubriques comprises) à 
250 caractères: un tableur qui ne 
permet guère que de calculer un 
budget familial, sans pouvoir bien sûr 
lier des feuilles entre elles. sans nu- 
mérotation des colonnes et avec un 
choix d'opérations ‘riquiqui”.… 


Pas besoin d'épiloguer, les créateurs 
de Jane le reconnaissent eux-mêmes. 
leur programme ne vise pas les 
“pros”. Ceux qui passeraient outre 
risquent la déception. et accuseront 
ce programme ‘bluffant” de tricherie. 
Ils n'auront pas tout à fait raison. Car 
le mérite de Jane. c'est d'ouvrir ce 
bon vieil Apple Il aux techniques 
“d'avant-garde” de l'intégration. des 
souris et des fenêtres. En fait de fe- 
nêtre, celle qu'ouvre Jane sur l'ave- 
nir est un apéritif tentateur. On se 
prend à rêver d'un logiciel de même 
principe tournant sur un Apple Il 
muni d'un nouveau processeur 16 
bits (le 65816. par exemple. sur le- 
quel travaille Steve Wozniak : voir la 
rubrique Micro-informations] et d'une 
mémoire portée à 512 K. Il n'aurait 
guère à envier à Lotus 1-2-3 ‘le ma- 
gnifique”. Et si c'était pour demain ?M 
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L'Applesoft est pauvre, c'est en- 
tendu, mais si l’on en juge par toutes 
les greffes qui lui ont déjà été faites 
par le biais de l’ampersand (&), il 
semble bien que, finalement, on ne 
prête pas qu'aux riches... 


ICARE est un amper-interpréteur 
assez complet, dont l’idée m'a été 
inspirée par le programme ‘Print 
Using & Friend” de CALL 
A.P.PL.E., et par le fameux ’Haifa” 
publié dans Pom's numéro 5. 

J'ai ainsi voulu réunir dans un seul et 
même programme de nombreuses 
routines, dont certaines ont été em- 
pruntées à l’article de CALL 
A.P.P.L.E. déjà mentionné, d’autres 
à Pom's, ou que j'avais développées 
pour mes propres besoins. On dis- 
pose de cette façon de multiples ins- 
tructions nouvelles en Applesoft, en 
même temps et avec un point d’en- 
trée unique. Il n’est donc plus néces- 
saire de se préoccuper des problè- 
mes de compatibilité entre les 
différentes routines, ni de jongler 
avec les disquettes et les fichiers pour 
charger en mémoire celles dont on a 
besoin. 


Nous examinerons d’abord les diffé- 
rentes instructions disponibles et leur 
syntaxe, avant de voir comment met- 
tre en oeuvre ICARE. 


Les instructions 
d'ICARE 


PRINT USNG > 


& PRINT USNG > chaîne:exp 

(exp désigne une expression numéri- 
que) 

Exemple : 


Si À = 1234.56, 
& PRINT USNG >’ .00” 
donne 1234.56 

& PRINT USNG >'000000.00”: 
donne 001234.56 

& PRINT USNG >”, 00” 
donne 1,234.56 

& PRINT USNG >'$ .00” 
donne $1234.56 

& PRINT USNG >'Total 
,  $.00” A donne: Total 
$1,234.56 


Si A = 9506789, 
& PRINT USNG >'Martin: - 
”, À donne : Martin : 950-67-89 


Auteur: Craig Peterson CALL 
A.P.P.L.E. 


NOISE 


& NOISE expl,exp2 
Produit un son dont la durée et la 


EU > > > > 
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Amper-interpréteur ICARE 


hauteur sont données par expl et 
expZ, l’une et l’autre devant être 
comprises entre 0 et 255. 


Auteur: Craig Peterson - 
A.P.PL.E. 
WAIT 


& WAIT exp 

Attend ‘’exp” dixièmes de seconde. 
Auteur: Craig Peterson CALL 
A.P.P.L.E. 

SWAP > 


& SWAP > variablel variable2 


Echange les contenus des variables 
variable1” et ‘variable2”, qui doi- 
vent être de même type. Par exem- 
ple : & SWAP > A$,B$ 


Auteur: Craig Peterson - 
A.P.PL.E. 


GOTO calculé 
& GOTO exp 


CAËEL 


CALL 





Exécute un GOTO à la ligne dont le 
numéro est donné par le calcul de 
‘exp’. Par exemple, si A=100, & 
GOTO A/2 est équivalent à GOTO 
50 (voir INTEGER BASIC). 


GOSUB calculé 


& GOSUB exp 
Exécute un GOSUB selon les mêmes 


règles que pour le GOTO calculé 
(voir INTEGER BASIC). 


DEL ARRAY > 


& DEL ARRAY > nom de tableau 


Efface en mémoire le tableau dont le 
nom est précisé dans l'instruction 
(par exemple, & DEL ARRAY >A$ 
détruit le tableau A$). Le tableau 
peut être de n'importe quel type, 
mais il doit absolument exister. 
Auteur: Craig Peterson 
PP. 


CALL 


Pascal Cantot 


BELL 


& BELL exp 


Produit un son de cloche dont la 
durée est donnée par la valeur de 
“exp”, qui doit être comprise entre 0 
et 255. 


RPT PRINT 


& RPT PRINT chaîne,exp 


Affiche ‘’exp” fois la chaîne (la valeur 
de exp doit être comprise entre O et 
255). 


PLAY 


& PLAY expl,exp2 

Joue une note de hauteur ’expl” et 
de durée ‘’exp2”. Il est possible de 
donner plusieurs notes, mais il faut 
alors séparer les couples note/durée 


"1,9 


par des ”;”. Par exemple : 

& PLAY 192,0 ; 172,0 ; 152,0 ; 
144,0 ; 128,0 ; 115,0 ; 102,0 : 96,0 

joue l’octave 1. 

Pour les octaves plus aiguës, il suffit 
de diviser par 2 à chaque octave, et 
pour obtenir les dièses, il faut faire la 
moyenne des deux notes adjacentes. 


REG 


& REG 
Affiche le contenu des registres du 
6502. 


BKGND 


& BKGNDexp 


Met tous les octets de la page HGR 
courante à ‘exp’. Par exemple, 
BKGND255 blanchit la page cou- 
rante (page 1 par défaut). 


HINV 


& HINV 

Inverse la page HGR courante (page 
1 par défaut). 

SYs 


& SYS 

Passage en mode moniteur (équiva- 
lent à CALL —-151). 

MOVE 


& MOVE expl,exp2 TO exp3 


Fait exécuter la commande MOVE 
du moniteur et déplace à l'adresse 
’exp3” la zone de mémoire comprise 
entre les adresses ’expl” et ”’exp2”. 


Accès direct à la disquette 


& BUFFER = exp 


Sélectionne la page du buffer qui 
sera utilisé par RWTS dans les 
commandes de lecture / écriture. Par 


| 





25 











exemple, avec & BUFFER = 32, le 
buffer commence en 32 x 256 = 
8192. La valeur par défaut est $96, 
soit le premier buffer du DOS avec 
MAXFILES 3. 


& READ P,S 


Lit le secteur S de la piste P dans le 
buffer. Le lecteur utilisé est le dernier 
lecteur sélectionné par une com- 
mande DOS. 


& WRITE P,S 


Recopie le contenu du buffer sur le 
secteur S de la piste P. Même remar- 
que que ci-dessus en ce qui 
concerne le lecteur utilisé. 


RESTORE 


& RESTORE exp 


Ajuste le pointeur de DATA au début 
de la ligne dont le numéro est donné 
par exp’. Un message d'erreur est 
envoyé si la ligne n'existe pas ou ne 
contient pas de DATA. 


SUPER PRINT 


ICARE réserve une place pour l’im- 
plantation de la routine de SUPER 
PRINT de Denis Sureau publiée dans 
le Pom's 9. Vous trouverez dans la 
deuxième partie de l’article la procé- 
dure à suivre pour joindre cette rou- 
tine aux autres. 

Si elle est implantée, la syntaxe de 
l'instruction est : 


& SUPER PRINT:A$,X, Y +Z,chaîne 
PRINT AT 


& PRINT chaîne AT H,V 


Affiche le contenu de la chaîne à la 
colonne H de la ligne V (H de 1 à 
40 et V de 1 à 24). Cette instruction 
ne modifie pas la position du cur- 
seur. 


GET 
& GET X 
Remet le clavier à zéro, attend 


qu'une touche soit pressée et met 
son code (inférieur à 128 — bit 7 à O) 
dans X. Peut être utilisé en mode di- 
rect. 


TORTUE 


ICARE réserve également la possibi- 
lité d'implanter la Tortue de Jacques 
Duma publiée dans le Pom's 6 (voir 
seconde partie pour le mode opéra- 
toire). 


La syntaxe de cette commande est 


alors : 
& DO ! instruction ] 
Pour la description des instructions 


de la Tortue, se reporter au Pom's 6 
ou au Recueil 2. 


Touches de fonction 


& XFUNCT 
Initialise le programme de touches de 


fonction qui dévie la routine d’entrée 
de caractères. Pour obtenir ensuite 
les fonctions, il faut appuyer simulta- 
nément sur ‘Pomme Ouverte” 
(Apple //e ou //c) ou sur un bouton 
de manette de jeu (Apple II+), et sur 
la touche concernée. 

En cas de Reset, le programme est 
déconnecté. Chaque touche ‘’pom- 
mée” est accompagnée d’un bip”. 
Attention, l'instruction & XFUNCT 
déconnecte la routine HCURSOR 
qui permet d’avoir un curseur visible 
en HGR (voir plus loin). 


Les touches de fonction disponibles 
sont les suivantes : 


e S'il s’agit d'un chiffre n, le pro- 
gramme va adresser le commuta- 
teur d'affichage situé à l'adresse 
$CO50 + n. 

e CTRL:-I : envoie 8 espaces. 

e #: envoie N ED24G “RETURN” 
(conversion hexadécimal / déci- 
mal). 


e 
à 


fait afficher la valeur de 
LOMEM. 

fait afficher 
HIMEM. 
* : fait entrer en mode moniteur. 


{: exécute TEXT:HOME ‘"RE- 
TURN” 


la valeur de 


= : affiche COLOR = 

C : envoie CATALOG 

G : envoie GR 

l: fait afficher INPUT 

L : fait afficher LOAD 

N : fait afficher NEXT 

R : fait afficher RUN 

T : fait afficher & DOI 

W : fait afficher & WAIÏT 

Z : fait afficher &CIRCLE = 

] : fait afficher &NOISE 

Del : recule le curseur en effaçant 
le caractère précédent. 

|: exécute TEXT:NORMAL 

$ : fait afficher CHRS$( 

.: affiche HPLOT 

< : affiche PEEK( 

> : affiche POKE 

B : affiche BRUN 

E;: se HOME : POKE 33,28 : 


TE 
a 


: envoie HGR 
K : affiche POKE —-16368.0 : 
M : affiche MID$( 

P : affiche PRINT 

S : affiche SAVE 

U : affiche & PRINT USNG > 
X : affiche & XCIRCLE = 

[ : affiche & PLAY 


CIRCLE 


& CIRCLE = X.Y.R 


Trace un cercle de rayon R et de 
centre de coordonnées X et Y. Les 
points en dehors de l'écran sont 
ignorés. La valeur de R doit être ab- 
solument positive. 


Auteur : Dominique Bernardi - Pom's 
12. 





XCIRCLE 


& XCIRCLE = X,Y,R 


Comme précédemment, mais le cer- 
cle est rempli avec la couleur cou- 
rante. Le tracé de points en dehors 
de l’écran donne un résultat bizarre. 


Hard-Copy 


& HARDCOPY 


Recopie l'écran texte sur imprimante. 
Les caractères en INVERSE et 
FLASH sont recodés. La routine ne 
fonctionne toutefois correctement 
que sur une Epson équipée d’une in- 
terface Epson. 


PLOT AT 


& PLOT exp AT X,Y 


Envoie sur l'écran texte le caractère 
dont le code-écran est donné par 
exp’, et ce à la position X-Y (X de 
0 à 39 et YŸ de 0 à 23). 


HGR PRINT 


& HGR PRINT 


Connecte la routine de sortie de ca- 
ractères HGR qui permet d'écrire en 
page HGR avec des caractères gra- 
phiques comme on écrit en page 
TEXT. Il faut utiliser une table de 96 
caractères graphiques (une table de 
Haïfa, par exemple) dont l'adresse 
de début doit être placée en 206-207 
(ce qui permet de placer la table elle- 
même n'importe où en RAM). 

La table étant chargée, il suffit de 
faire HGR ou HGR2 après & HGR 
PRINT pour écrire en graphique, 
sans perdre pour autant ‘le contact” 
avec le moniteur et l'Applesoft : les 
commandes sont toujours interpré- 
tées et vous pouvez, si vous le dési- 
rez, programmer en Gothique ou en 


Hébreu... 
NORMAL PRINT 


& NORMAL PRINT 
Déconnecte HGR PRINT. 


TYPE 


& TYPE exp 


Définit la façon dont les octets sont 
envoyés vers la page graphique. Si 
on désigne par T un octet de la table 
de caractères et par E l'octet de 
l'écran qui se trouve à la position où 
l'on va écrire T, les différentes va- 
leurs possibles pour exp” corres- 
pondent à : 

0 : affiche T 

1 : affiche T ORA E (DRAW) 

2 : affiche T AND E 

3 : affiche T EOR E (XDRAW) 

4 : laisse E (pas d'affichage) 


SCROLL 


& SCROLL expl,exp2 


Scrolling HGR dans les limites de la 
fenêtre. ‘’expl” détermine la direc- 
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tion et ’exp2” le code des octets qui 
vont combler le vide. Les valeurs 
possibles pour ’exp1” sont : 

1 : gauche 

2 : droite 

3 : bas 

4 : haut 


HOME 


& HOME 


Efface la page HGR courante dans 
les limites de la fenêtre et positionne 
le curseur en haut à gauche. 


Définition de caractères 
graphiques 


& DEF CHRS (X) # expl, exp2 … 
exp8 


Redéfinit le caractère dont le code 
ASCII est X (65 pour ‘’A”, par exem- 
ple) avec, dans l'ordre, les valeurs 
’expl” … ’exp8”. Il est possible de 
donner moins de 8 valeurs (le carac- 
tère ne sera alors pas entièrement 
défini) ou plus de 8 (les caractères 
suivants dans la table seront alors 
également modifiés). 

Cette commande est à utiliser dans le 
mode HGR PRINT et les nouveaux 
caractères seront directement implan- 
tés dans la table courante. 


USER 


& USER 


Exécute un ‘“JMP $300” (CALL 
768) et permet à l'utilisateur ne pos- 
sédant pas d’'assembleur d'ajouter 
des commandes à ICARE en implan- 
tant directement un code objet à par- 
tir de l'adresse $300. 


POKE 


& POKE adresse.exp 


Permet de POKEr une adresse sur 
deux octets. Par exemple, & POKE 
206,16384 met en 206-207 l'adresse 
de début d'une table de caractères 
graphiques située en $4000 (16384 
en décimal). 


PEEK 


& PEEK 


Revectorise la fonction USR vers une 
routine permettant de lire un PEEK 
sur deux octets Par exemple, 
"PRINT USR(206)" après initialisa- 
tion par & PEEK permet de connaî- 
tre l’adresse de la table de caractères 
graphiques courante. 


Utilisation de la routine 
S.H.LAM 


& EXEC x ‘commande moniteur” 


Permet de faire exécuter des instruc- 
tions moniteur à partir de l'Applesoft, 
et par le biais de la routine 
S.H.LAM, plus facilement que par 
lecture de DATA, suivie de POKES et 
d'un CALL —-144. 

Par exemple, & EXEC x'’300<8000. 
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8040M” provoquera un MOVE de la 
portion de mémoire comprise entre 
les adresses $8000 et $8040 à 
l'adresse $300. 


Utilisation de ICARE 


Pour initialiser ICARE, il suffit de 
faire un BRUN du code objet, ou de 
charger ce dernier en mémoire et de 
faire "CALL 32768”. Après initialisa- 
tion du vecteur ampersand et de 
divers registres, la main vous est ren- 
due au niveau de l'Applesoft en 
mode direct. ICARE se charge à par- 
tir de l'adresse $8000 et place lui- 
même le HIMEM en dessous de cette 
valeur. 


Compte tenu de ses dimensions, il 
n'est pas possible de lister dans la 
revue l'intégralité du programme 
source (réalisé en assembleur BIG 
MAC - MERLIN, version 64K). 

Vous trouverez toutefois ci-après la 
liste de deux routines importantes 
dont je pense pouvoir affirmer le ca- 
ractère original, HGR PRINT et la 
routine de touches de fonction. Sur 
la disquette de ce numéro de Pom's, 
ces deux routines se trouvent dans le 
fichier source ICARE II. 

Le tronc-commun de l'assemblage, 
qui contient la définition des étiquet- 
tes générales et appelle les deux 
autres parties du source, est égale- 
ment listé. I] se nomme ICARE 3.1.5 
sur la disquette. 


En ce qui concerne le code-objet, 
l'ensemble de la récapitulation vous 
est donnée, à l'exception des routi- 
nes déjà publiées dans Pom's 
(SUPER PRINT de Denis Sureau et 
TORTUE de Jacques  Duma). 
Comme il se divise en plusieurs 
blocs, quelques précisions peuvent 
être utiles à sa bonne exploitation, si 
vous souhaitez le rentrer en machine 
à la main : 

e De $8000 à 58645 : 

prendre tel quel. 

e Le ‘trou” entre 58646 et $86FC 


code à re- 


est réservé à l'implantation éven- 
tuelle du code de la routine de 
SUPER PRINT. 

e De $86FD à $886D : 
prendre tel quel. 

e Le trou entre $886E et $8C74 est 
réservé à l'implantation du code 
de la TORTUE. Une partie de ce 
code doit toutefois être obligatoire- 
ment entrée en machine car elle 
est utilisée par d’autres instructions 
de ICARE. Le code correspondant 
est à placer aux adresses $8AD1 à 
8AE3. Ces adresses sont identi- 
ques à celles qu'occuperait la rou- 
tine concernée si l'ensemble du 
code de la TORTUE était implanté 
dans ICARE. 


code à re- 





e De $8C75 à $90D2: 
prendre tel quel. 

e Le trou entre $90D3 et $9252 
correspond à une table utilisée par 
ICARE; la valeur initiale des adres- 
ses de cette table n’a pas d'impor- 
tance et vous pouvez donc sauter 
directement à la suite du code. 

e De $9253 à $94F5: code à re- 
prendre tel quel. 


code à re- 


Implantation de SUPER PRINT 


ll suffit de mettre en mémoire à partir 
de l'adresse 58646 les codes corres- 
pondant aux lignes 55 à 181 du pro- 
gramme source publié dans Pom's 9 
(SUPER PRINT est relogeable). 


Implantation de la TORTUE 


Le programme original a été publié 
dans le Pom's 6 et dans le Recueil 2. 
Il faut vous y reporter et lui apporter 
les adaptations suivantes : 


e Remplacer la dernière partie 
"Suite de l'instruction &°” par le 
programme ‘Suite instructions” 
listé ci-après. 

® Supprimer les lignes 65 à 90 du 
source original. 

e Mettre ‘ORG $886E” et assem- 


bler le nouveau source ainsi cons- 
titué. 
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Le code objet résultant de ces adap- 
tations doit ensuite être placé aux 
adresses $886E à $8C74. 


Les fichiers ICARE sur 
la disquette Pom'’s 


Fichiers Source 


— ICARE 3.15 : tronc commun (voir 
listing), appelle ICARE I et ICARE Il. 


— ICARE I: regroupe toutes les rou- 
tines autres que HGR PRINT et les 
touches de fonction. Ce fichier 
contient des instructions DS” pour 
réserver la place de SUPER PRINT 
et TORTUE lors de l'assemblage. 
Vous pouvez bien sûr remplacer cela 
par les sources de ces deux routines : 
lignes 55 à 181 du source original 
pour SUPER PRINT, et à partir de la 
ligne 91 pour TORTUE (avec toute- 
fois la modification déjà signalée 
pour la dernière partie ”’Suite instruc- 
tions”). 

Si vous désirez effectivement remet- 
tre ces deux sources, veillez cepen- 
dant à redonner aux étiquettes utili- 


étiquettes générales définies dans 
ICARE 3.1 lorsque ces noms diffè- 
rent. 


— ICARE Il : reprend HGR PRINT et 
les touches de fonction. 


Pour assembler ICARE avec BIG 
MAC version 64K, les étapes sont les 
suivantes : 


— Ljoad de ICARE 3.1 

— Une fois dans l’éditeur/assembleur, 
tapez ASM et répondez ”’N’” à la 
question "UPDATE SOURCE ..”. 

— L'assembleur chargera à partir de 
la disquette les fichiers TEXT ICARE 
I et ICARE II en fonction de ses be- 
soins. L’assemblage complet dure 4 
à 5 minutes. 


Fichier Objet 


ICARE 3.1 correspond à l'assem- 
blage des trois fichiers source et au 
code listé dans la revue (les ”trous” 
sont bien sûr occupés, mais ne 
contiennent pas de codes significa- 
tifs). 


TORTUE à ICARE, vous pouvez 
donc, soit remettre directement les 
codes correspondant dans le code 
objet, soit remettre les fichiers sour- 
ces adaptés de ces deux routines 
dans le source de ICARE (voir ci- 
dessus) et ré-assembler le tout. 


Le programme de démonstration 
également listé ici vous donnera une 
vue synthétique de l’utilisation de 
ICARE (il doit être lancé après initia- 
lisation du système). Pour l’exploiter 
dans la version réduite, vous devrez 
supprimer les appels à la Tortue (& 
DO!) et à SUPER PRINT. En parti- 
culier, vous pouvez remplacer la 
ligne 12 par ‘12 HGR2”, enlever 
tous les autres ”’& DO” et rajouter 
une ligne ‘280 END”. Le code 
POM'S.CHARSET correspond au 
contenu d'une table de caractères 
graphiques utilisée dans le pro- 
gramme de démonstration et que 
vous pouvez prendre comme base, 
par exemple, pour définir d’autres 
caractères par DEF CHR. 





sées dans les originaux les noms des Pour rajouter SUPER PRINT et E 
Programme DEMO ICARE 70 & POKE 206,30720: VTAB 12 
72 A$ = " ICARE - Amper-interpreteur App 

S TEXT : HOME lesoft“: GOSUB 500 
8 HIMEM: 30719 75 & TYPE = 3: FOR I = 1 TO 10: VTAB 12 
9 LOMEM: 24577 : HTAB 1: PRINT ‘HRESSSSRSRNERMEE 
10 DS = CHRS (4): PRINT DS'"BLOADCHARSET SSRSASSESERSENRESSSRBR" ;: & NOISE 

»AS$7800": PRINT D$'"BLOADPOM’S.CHA 96,255: NEXT 

RSET ,A$7BO0" 77 & TYPE = 
12 & DO'‘I18$: & DO‘I2$ 80 AS = *“* #“#ææ#æwm… Par Pascal CANTOT 
15 & POKE 206,31488 “: GOSUB 500 
17 & HGR PRINT 82 AS = “* #*#æ#wmæ#æx# PROGRAMME DE DEMON 
18 & TYPE = © STRATION‘": GOSUB 500 


20 FOR I = 1 TO 12: & PRINT "ICARE 84 & 


“ AT 15,1 
25 & PLAYI # 10,32 
27 & VWAIT 2 
30 & PRINT “ 


35 VTAB 13: HTAB 15: PRINT 


PRINT : HCOLOR= 3 


37 HPLOT 92,92 TO 172,92 TO 172,108 TO 105 


32,108 TO 92,92 


38 HPLOT 93,93 TO 171,93 TO 171,107 TO 


93,107 TO 93,93 
40 & DO°P116,100,0;B35$ 


45 & WAIT 10: & HINV: & NOISEO,0: & HI CLE = 


NV 


46 FOR I = 3 TO 4: HCOLOR= I: FOR J = 4 120 
5 TO 90 STEP S: & CIRCLE = 132,10 125 I = 50: FOR J = 7 TO O©O STEP 


“ AT 15,1: NEXT 
"I CARE": 100 


WAIT 20: & NOISEO,O0: & HOME : PR 
INT * 
s donner 


Ce court programme va vou 
un apercu des possibili 


tes d’ICARE..." 


86 & 


WAIT 20 
POKE 34,0: POKE 35,24: POKE 32,0: P 


OKE 33,40 


& DO°1I38$: 


HCOLOR= 3: VTAB 24: & PO 


KE 206,31488: HTAB 12: PRINT "CIR 


108 FOR J = 


CLE et XCIRCLE*“ 
3 TO 4: HCOLOR= J 


110 X = 5: FOR I = 3 TO 57 STEP 3: & CIR 


X,96,I:X = X + I / 3: NEXT 


115 & WAIT 10: NEXT 


POKE 35,22: & WAIT 10: & HOME 


- 1: HC 


0,J: & NOISESO,50: NEXT : NEXT OLOR= J: & XCIRCLE = 140,90,I:I = 
50 & WAIT S: FOR I = 1 TO S: & SCROLLA I *# .75: NEXT 

»0 127 & WAIT 10 
Si & PLAY64,64 130 & XCIRCLE = 140,90,51: HCOLOR= 3 
S2 NEXT 132 & XCIRCLE = 140,90,50: HCOLOR= O0: & 
53 & VWAIT S XCIRCLE = 155,90,40 
55 & BKGND171: & PRINT “ de 135 POKE 35,24: & WAIT 10 

AT 14,8: & TYPE = 3: FOR I = 1 TO 141 & WAIT 1 

8: & PRINT “I C A RE“ AT 15,8: 142 & PLAY128,64;:108,64;:115,64;115,64;1 

& PLAY32,64: NEXT 28,0 


60 & TYPE = O 


150 


65 POKE 34,10: POKE 35,13: POKE 32,1: P 155 


OKE 33,38: & HOME 


ASS 
RERRSRE ER HAVE 


28 


& DO°13;:B3$ 
VTAB 24: HTAB 10: PRINT “TORTUE AMP 
ERSAND“ ;: HOME : POKE 35,22 
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158 
160 


162 
163 
165 


169 
170 


172 


173 
175 


180 


184 
185 


130 


195 
197 
200 


210 
212 


215 
220 
230 
232 
235 
240 
242 
244 
250 
255 
260 
270 
297 
300 


305 


307 
310 


312 
315 
320 
325 
330 


335 


FOR K = 35 TO 20 STEP - 15 
FOR I = 1 TO 30: FOR J = 1 TO 6: & 
DO"AK;T6OS: NEXT : & DO'T12$: NEX 
T 
NEXT 
& MOVE8192,16383 TO 16384 
& WAIT 20:I = FRE (O0): FOR I = 1 
TO 31: & HINV: & BELL20: NEXT 
T = FRE (O):T = © 
& WAIT 10: FOR I = 1 TO 700: POKE 
- 16299,0!T = T + T « T: POKE - 
16300,0:T = T + T * T: NEXT 
& TYPE = O: VTAB 24: HTAB 10: PRINT 
N SCROLLINGS “7: POKE 23 
0,64: HTAB 10: PRINT * SCROLL 
INGS “7: POKE 230,32 
& TYPE = © 
& HINV: FOR I = 1 TO 25: & SCROLL?2, 
255: & SCROLL3,255: & PLAY16,16: 
NEXT 
POKE - 16299,0: POKE 230,64: & WA 
IT 10 
J = 20 
FOR I = 1 TO 20: POKE 32,0: POKE 33 
»J: & SCROLL1,0: POKE 32,20: POKE 
33,20: & SCROLL2,0: & PLAY16,16: 
J = J - 1: NEXT 
POKE 32,0: POKE 33,40: POKE 34,0: P 
OKE 35,24: HOME 
& NORMAL PRINT 
VTAB 8 
INVERSE : & RPT PRINT “++#+++",8: VT 
AB 18: & RPT PRINT “+++++,8: NOR 
MAL : FOR I = 8 TO 17: & PLOT 43 
AT O,I: & PLOT 43 AT 39,1: NEXT 
&  RESTORE 9000 
FOR I = S TO 15: READ AS: FOR J = 1 
TO LEN (AS): IF VAL ( MIDS (AS 
»J,1)) THEN & PLOT 32 AT J +5, 
T 
NEXT : NEXT 
POKE - 16300,0: POKE - 16303,0 
FOR I = 1 TO 3: & RESTORE 9100 
& WAIT 5 
FOR J = 1 TO 69: READ N,D 
D = D * 1,5: IF D > 255 THEN D = © 
IF I = 2 THEN N = N * .75 
IF I = 1 THEN N = N * 1.25 
& PLAYN,D 
FOR P = 1 TO 40: NEXT 
NEXT 
NEXT 


I 


& HGR PRINT : & POKE 206,30720 

& DO°I3$: HCOLOR= 3: HPLOT 0,0 TO 2 
79,0 TO 279,184 TO 0,184 TO O,0 

HPLOT 6,7 TO 273,7 TO 273,177 TO 6, 
177 TO 6,7 


& TYPE = 1: FOR J = 1 TO 2 
FOR I = 1 TO 40: & PRINT “+* AT I, 
15 & PRINT “+" AT 1,23: NEXT : F 


OR I = 2 TO 22: & PRINT “+"* AT 1 
1: & PRINT “+" AT 40,I: NEXT 
& WAIT 5 


& TYPE = O: INVERSE : NEXT 
NORMAL 
= FRE (0) 


POKE 32,1: POKE 33,38: POKE 34,1: P 
OKE 35,22 

& POKE 206,31488: & PRINT “I C A 
RE" AT 15,3: & POKE 206,30720 
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340 


341 
342 


345 


350 


355 


360 


365 
370 


375 


377 
400 


405 


407 
410 
420 
490 
500 
505 


510 
512 
930 
540 
3000 
3002 
3004 
3006 
3008 
3010 
3012 
93100 


3110 


9120 


3130 


3140 


9150 


3160 


X = 


VTAB 4: PRINT : & SUPER PRINT :° 
Ceci n'etait qu’une demonstration 

des possibilites graphiques et" 

PRINT ‘sonores de “: 

&  POKE 206,31488: & SUPER PRINT :* 
ICARE": & POKE 206,30720 

& SUPER PRINT :" Car il en a beau 
coup d’autres, toutes aussi inter 
essantes, en particulier :* 

& GET X: PRINT ‘*“ - PRINT USNG >‘: 
PRINT “* - GOTO/GOSUB": PRINT “ - 
READ/WRITE/BUFFER": PRINT * - XFU 
NCT* 

PRINT : & SUPER PRINT :* Ces inst 
ructions etant difficiles a mettr 
e en valeur dans une ’demo’.", 

& SUPER PRINT ; "De mere, l’instruct 
ion DEF CHRS, qui est tres puissa 
nte. Helas, Je n’ai plus le tenrps 

d’en faire une ‘demo’ valable... 


PRINT : & GET I 
& HOME : & SUPER PRINT :" En att 
endant, voila un bel utilitaire. 
Et n’oubliez pas: 2 AMPER-INTERPR 
ETEURS VALENT MIEUX QU’UN!..." 
PRINT : PRINT : PRINT TAB( 15)"Pas 
cal CANTOT": PRINT TAB( 20)"23/0 
6/1984" 
PRINT : & GET I 
PRINT : PRINT : HTAB 12: & POKE 20 
6,31488: PRINT “VIVE POM’S !*:; 
FOR I = 1 TO 20: HTAB 17: PRINT * 
“3: & PLAY64,32: HTAB 17: PRIN 
T “POM’S";: & PLAY64,32: NEXT 
& POKE 206,30720 
& WAIT 50 
& NORMAL PRINT : 
END 
FOR I = 1 TO LEN (AS): VTAB 12: HT 
AB 37: PRINT MIDS (AS,I,1): & SC 
ROLL1,0: & PLAY11,16: NEXT 
HTAB 36: PRINT “ *: 
VTAB 12: HTAB 37: PRINT * ‘: 
FRE (O0): & WAIT 10 
RETURN 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


TEXT : HOME 


111001110000100011110011111 

01001000100101001000101 
01001000001000101000101 

01001000001000101111001111 
01001000001111101010001 

01001000101000101001001 

DATA 111001110010001010001011111 

DATA 128,32,108,64,96,32,86,48,81, 
16,86,32,96,64,115,32,128,48,136, 
16,128,32,115,64,136,32,172,64 

DATA 128,32,108,64,96,32,86,32,81, 
32,86,32,96,64,115,32,144,48 

DATA 128,16,115,32,108,64,128,32,1 
36,48,152,16,136,32,128,196 

DATA 72,96,72,32,76,16,86,32,96,64 
»115,32,144,48,128,16 

DATA 115,32,96,64,115,32,144,48,12 
8,16,115,32,108,64 

DATA 128,32,128,48,136,16,128,32,1 
15,64,136,32,172,64,72,96,72,48,7 
6,16 

DATA 86,32,96,64,115,32,144,48,128 
°,16,115,32,108,48,115,16,128,32,1 
36,32,152,32,136,32,128,196 











DRPPRPEPE PRESS | 








1 KHKEXKHKHHKEREEXERHHEREERHERERREREERE 57 UARNAM = $81 113 GETBYT = $E4éF8 
2 * #% 58 VARPNT = 583 114 CONINT = $E6FB 
3 * * 59 FORPNT = $85 115 GETNUM = $E746 
4 * Û I * 60 LOWTR = $9B 116 COMBYTE = $E74C 
5 * LICAREI * 61 DPTR = $AQ 117 GETADR = $E752 
6 * I I * 62 SGN = +$A2 118 FADDH = $E7A0 
7 * # 63 CHRGET = $B1 119 FSUB = $E7A7 
8 x Par Pascal CANTOT #% 64 CHRGOT = $B7 120 FSUBT = $E7AA 
9 * Copyright 20/06/1984%x 45 TXTPTR = +Be 121 FADD = $E7BE 
10 * *# 66 TABLE = $CE 122 FADDT = $E7C1 
11 # Et CALL A.P.P.L.E., POM’S %* 67 HPAG = $Eé 123 MUL10 = $EA39 
12 * * 68 XBUT = $F9 124 FMULT = $E97F 
13 KKKHEHHAMERERERERAREEEEEEEEEEERX 69 YBUT = $FB 125 FMULTT = $E982 
14 70 TORTCOL = $FC 126 CONUPK = $E9E3 
15 ORG +8000 71 ANGLE = $FD 127 FDIV = $EAéé 
16 72 128 MOUFM = $EAF9 
17 KEY = $é 73 NMBR = $100 129 MOUMF = $EB2B 
18 ERRBYTE = $6 74 IN = $200 130 MOUFA = $EB53 
19 RESULT = $é 75 INTDOS = $3EA 131 RNDB = $EB72 
20 XTORT = $7 76 AMPV = $03FS 132 ABS = $EBAF 
21 YTORT = $9 77 DOS = $9DBF 133 INT = $EC23 
22 USR = $0A 78 RUTS = $87B5 134 FOUT = $ED34 
23 VALTYP = $11 79 135 NEGOP = $EEDO 
24 LONGUAR = $18 80 KBD = $C000 136 COS = $EFEA 
25 ADRCOM L #18 81 KBDSTRB = $CO010 137 SIN = $EFF1 
26 HAUT = $18 82 POMME = $COo61 138 PI2 = $F06B 
27 VAR æ $197 83 SPKR = $C030 139 HCLR = $F3F2 
- 28 CMD = $19 84 140 HPLOT = $F457 
29 EDSC = $19 85 CHKSTK = $D3Dé 141 HLIN = $F534 
30 EDTL = #19 86 ERROR = $D412 142 HCOLOR = $F6F0 
31 EDT = $iA 87 FNDLIN = $DéiA 143 GETARYPT = $F7D9 
32 DEBLIGN = $1B 88 NEUSTT = $D7D2 144 REGDSP = $FAD7 
33 SDSC = $1C 89 GOTO = $D941 145 BASCALC = $FBCI 
34 FINLIGN = $1D 90 ADDON = $D998 146 BELL = $FBDD 
35 SFLD = $1D 91 SAVD = $DASA 147 BELL2 = $FBE4 
36 CNTR = $iF 92 SAUSTR = $DAA1 148 VTAB = $FC22 
37 WNDLFT = $20 93 CRDO = $DAFB 149 MONSCR = $FC70 
38 WNDUDTH = $21 94 STROUT = $DB34 150 RDKEY = $FDOC 
39 WNDTOP = $22 95 STRPRT = #DB3D 151 KEYIN = $FD1B 
40 UNDBTM = $23 96 OUTDO = $DB5C 152 CROUT = $FD8E 
41 CH = $24 97 FRMNUM = $DD67 153 COUT = $FDED 
42 CV = +25 98 CHKNUM = $DDéA 154 COUT1 = $FDFO 
43 HBASE = $26 99 CHKSTR = $DDéC 155 MOVE = $FE2C 
44 BASE = +28 100 MMCH = $DD76 156 SETINV = $FE80 
45 DPLC = $1F 101 FRMEUL = $DD7B 157 SETNORM = $FE84 
46 KSW = +38 102 CHKCOM = $DEBE 158 PRERR = $FF2D 
47 AiL = $3c 103 SYNCHR = $DECO 159 REST = $FF3F 
48 A2L = $3E 104 SNTX = $DEC9 160 SAVE = $FF4A 
49 A4L = $42 105 PTRGET = $DFE3 161 MONZ = $FFé9 
50 RND = $4E 106 ISLETC = $E07D 162 SETV = $FF58 
S1 LINNUM = $50 107 INT2 = $E105 163 SHLAM = $FF70 
52 STREND = $6D 108 AYINT = $E10C 164 
53 HIMEM = $73 109 ILLQ = $E199 145 PUT _ICARE I 
54 CURLIN = $75 110 GIVAYF = $E2F2 166 PUT  ICARE IT 
55 DATLIN = $7B 111 FTED = $E625 167 
Sé DATPTR = $7D 112 GETBYTC = $E6FS 168 * I C À R E 
1 
2 HHHHEMHHMN MH DE HEHE HE DE HE DEN DE HE HE DE HE DE EH DE EE HE 32 JSR SAVE set tous les registres 
3 * sms mure ee + æ 33 JSR RMARGIN 
4% IHGR PRINTI * 34 LDX #0 
5 * PR RS SRE RE, + % 35 STX MASK 
é * * 36 LDX #32 3 INVFLG 
7 #% (C) Pascal CANTOT - 20/04/84 * 37 BMI  HCOUTO NORMAL ? 
8 *# # 38 LDA H#$7F 3MASK=$7F 
D HHMHOMHHHRHEHN MEHR EH D HÉ DE JE HE DEHÉ DE JE DE JE HE DE 39 STA MASK 
10 40 HCOUTO LDA CHAR 
11 41 EMI  HCOUTI Si NORMAL 
12 HGRPRINT JSR INITHPOS 42 LDX ##7F sinitialise 
13 LDA #37 43 STX MASK jle masque d‘’inversion 
14 CMP. #>HCOUT 44 AND #$3F 3Transforme les car. 
15 BEQ HPRINT 45 CMP  ##$20 :INVERSE ou FLASH 
1é LDA  #>HCOUT 46 BCS HCOUTI 
17 STA #37 47 ORA  #$C0 
18 LD  H#HCOUT 48 HCOUTI CMP  H##$A0 3CTRL? 
19 STA $36 49 BCC  HPEND :Qui-)pas d'affichage 
20 LDA  #>HCURSOR 50 
21 STA #39 Si JSR  FNDADR 
22 LDA  HHCURSOR 52 
23 STA #38 53 LDX #8 Affichage 
24 JSR $3EA 54 STX CNTR 
25 HPRINT LDA  H$2C 55 LDA CV Position vert, *x8 
26 STA  HCOUT 56 ÂASL 
27 STA  HCURSOR 57 AsL 
28 RTS 58 ASL 
29 59 STA LINE 
30 HCOUT BIT COUTI 60 HLUP LDA LINE 
31 STA CHAR 3Sauvegarde le caractere 61 JSR HPOSN 
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69 TYPE STA  CHBASE) ,Y  ; STA/ORA/AND/EOR/LDA 102 JMP COUT! Et affichage TEXT 

70 HLUP1 STA  CHBASE) ,Y 103 

71 INC LINE 104 CHAR DS Î 

72 INC ADR 105 LINE DS Î 

73 BNE  HLUP2 106 MASK DS 1 

74 INC  ADR+1 107 LIMNDRGHT DS 1 
9 


75 HLUP2 DEC CNTR 108 TYPTEL HEX 1113151B1 ;STA/ORA/AND/EOR/LDA (adr),Y 





7? 110 HPENDI LDA #0 

78 HPEND LDR CHAR sRestaure le caractere til STA BYTE 

79 LDX  LNDETM 112 JSR SCROLL4 
80 DEX 113 JMP  HPENDO 


82 LDX CV Teste le scrolling d'ecran 115 RMARGIN LDA LUNDUDTH 
83 CPX LINE 116 CLC 

84 BCC  HPENDO 117 ADC  LMNDLFT 
85 CMP  #$8D Return 118 STA  UNDRGHT 
8é BEQ HPENDI 119 DEC  WNDRGHT 
87 CMP  H$8A line feed? 120 RTS 


89 LDX CH 122 FNDADR SEC 

50 CPX  WNDRGHT 123 SBC ##$20 

91 BCC HPENDO 124 AND  #$7F 

92 CMP  ##95 Lo?" 125 STA ADR 

93 BEQ  HPENDI 126 LDA #0 :Calcul adresse caractere 


62 LDA CH 95 BPL  HPENDI 

63 CLC 6 CMP ##A0 3Car. affichabie? 

64 ADC  UWNDLFT 97 BCS HPENDI 

65 TAY $8 AND  #$7F 

éé ADR = #+] 3 Comme CHRGET, il s’auto-modifie s9 CMP  #$20 

67 LDA +2000 3Valeur arbitraire 100 

68 EUR MASK 101 HPENDO JSR REST iles registres... 

94 TAX 127 STA  ADR+1 





128 CLC 192 HCURSOR BIT KEYIN 256 ADC UWNDLFT' 
129 ROL ADR 193 JSR SAVE 257 STA LIMITE 
130 ROL  ADR+1 194 LDA CV 258 DEC LIMITE 
131 ROL ADR 195 ASL 259 LDX #8 
132 ROL  ADR+1 196 ASL 260 HEOL1 INC CNTR 
133 ROL ADR 197 ASL 261 LDA CNTR 
134 ROL  ADR+1 198 CLC 262 JSR HPOSN 
135 LDA TABLE 199 ADC #7 263 DEX 
136 ADC ADR 200 JSR HPOSN 264 BMI HEOL3 
137 STA ADR 201 LDA CH 265 LDY  WNDRGHT 
138 LDA TABLE+1 202 CLC 266 LDA #0 
139 ADC  ADR+1 203 ADC  WNDLFT 267 HEOL2 STA  (HBASE) ,Y 
140 STA  ADR+1 204 TAY 268 DEY 
141 RTS 205 LDA  CHBASE) ,Y 269 CPY LIMITE 
142 206 PHâ 270 BNE HEOL2 
143 446326262624 2646 46 06 HE EEE DE DE DE DE DE DE JE EDEEDEDENENENE 207 LDA (BASE) ,Y 271 BEG HECOLI 
144 208 STA CNTR 272 
145 DEFCHR JSR  CHRGOT 209 PHA 273 HEOL3 RTS 
146 CMP #’<° 210 LDA #$FF 274 
147 BNE  FNDCHER 211 STA  CHBASE) ,Y 275 MMM MMM DEN HE DE DEN IE IE DE HE IE HE DEEE DÉ DE DH HEIN 
148 JSR  FRMNUM 212 LDR #%011111111 276 
149 JSR CONINT 213 EUR (HBASE) ,Y 277 HGRCLR LDX  WNDBTM 
150 TXA 214 STA  CHBASE) ,Y 278 STX LINE 
151 JSR  FNDADR 215 HCURS INC  RND 279 LDS #0 
152 LDA ADR 21é BNE  HCURS1 280 STA CH 
153 STA  LINNUM 217 INC  RND+1 281 TXA 
154 LDA ADR+1 218 EUR CHBASE) ,Y 282 STA CV 
155 STA  LINNUM+1 219 STA  CHBASE) ,Y 283 HOMLUP DEC CV 
156 JSR CHRGOT 220 LDA (BASE) ,Y 284 JSR HCLREOL 
157 CMP #H°#° 221 TAX 285 LDA Cv 
158 BNE  FNDCHER 222 LDA CNTR 286 CMP WNDTOP 
159 LDA #0 223 STA (BASE) ,Y 287 BNE  HOMLUP 
160 STA  CNTR 224 STX CNTR 288 RTS 
161 FNDCHRL JSR CHRGET 225 HCURSi BIT +$Co000 289 
162 JSR  FRMNUM 226 BPL  HCURS 290 #24 262626 HD DEN HE DE HE HE DE HE DE HE DE DE IE DE D DE DE DE DE DEEE 
163 JSR CONINT 227 PLA 291 
164 TXA 228 STA (BASE) ,Y EA 
. 18 CES 22 PL Us Ce 
1éé INC  CNTR 230 STA  (CHBASE) ,Y . un 
167 STA  CLINNUM) ,Y 231 LDA +$C000 
168 JSR  CHRGOT 232 CMP #$8D ER E- 
169 CMP 4°,’ 233 BNE  HCURS2 297 JSR  RMARGIN 
* 170 BEQ  FNDCHRL 234 JSR HCLREOL 298 LDA  LINNUM 
171 235 HCURS2 JSR REST 299 CMP 4 
172 RTS 236 JMP  AUTOCOM 300 BEQ SCROLL! 
178 Sr 301 CMP #2 
174 FNDCHER LDOX #Hié 3Sntx 238 HI III IEII RER IH N INDIE IEEE 205 BEQ  SCROLL2 
175 JMP  ERROR 239 302 CMP 43 
176 240 NORMPRT LDA #$4C 304 BNE SCR 
177 EEK MMM DE DE DE DE DE DE DE DE DE DE DEDE DE DE DE HE DEN DEN KE NE 241 STA  HCOUT 305 JMP  SCROLL3 
178 242 STA  HCURSOR 306 SCR CMP #4 
179 SETYP JSR  FRMNUM 243 RTS 307 BNE  SCRERR 
180 JSR  CONINT 244 308 JMP  SCROLLA4 5111 @ty 
181 CPX 45 245 HA HE MMM DE HE DEDEDE DE DE DE DE DE HE DE MEME JE AE DE JE JE EE 209 SCRERR LOX #53 
182 BCS SETYPERR 246 310 JMP  ERROR 
183 LDA TYPTBL,X 247 HCLREOL JSR RMARGIN 311 
184 STA TYPE 248 LDA CV 312 
185 RTS 249 ASL 313 * 
186 250 ASL 314 
187 SETYPERR LDX #53 251 ASL 315 SCROLLI LDA UWNDBTM 
188 JMP  ERROR 252 STA CNTR 316 ASL 
189 253 DEC CNTR 317 ASL 
190 36322226 DE DEN DE DE DE HE DE DE JE DE DE JE HE HE HE D DE DE DE 254 LDA CH 318 ASL 
191 255 CLC 319 STA  CNTR 
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320 
321 
322 
323 
324 
325 
326 
327 
328 
329 
330 
331 
332 
333 
334 
335 
336 
337 
338 
339 
340 
341 

342 
343 
344 
345 
346 
347 
348 
349 
350 
351 

352 
353 
354 
355 
356 
357 
358 
359 
360 
361 

362 
363 
364 
365 
3éé 
367 
368 
369 
370 
371 

372 
373 
374 
375 
376 
377 
378 
379 
380 
381 

382 
383 
384 
385 
386 
387 
388 
389 
390 
391 

392 
393 
394 
395 
396 
397 
398 
399 
400 
40 

402 
403 
404 
405 
406 
407 
408 
409 
410 
a11 

412 
413 
414 
415 
41é 
417 
418 
419 
420 


SCRI 


S1*LUP 


SCROLL2 


SCR2 


S2*LUP 


SCROLL3 


S3°"NEUL 


RMHARGIN 
UNDTOP 


LIMITE 
ENTR 
CNTR 
HPOSN 
UNDLFT 


CHBASE) ,Y 


CHBASE) ,Y 


CHBASE) ,Y 
CNTR 
LIMITE 
SCRI 


WNDBTM 


CNTR 
RMARGIN 
WNDTOP 


LIMITE 
UWNDLFT 


CHBASE) ,Y 


CHBASE) ,Y 


LINE 
S2*LUP 
CNTR 
HPOSN 
BYTE 
UWNDLFT 
CHBASE) ,Y 


LINDBTM 


LARR 


#8 
LDEP 
WNDTOP 


LIMITE 
RMARGIN 
UNOLFT 


LINE 
LDEP 


#1 
LIMITE 
S3*CLR 
LDEP 
HPOSN 
HBASE 
ADRI 
HBASE + 1 
ADRI1+1 
LARR 


#1 
LARR 
LARR 
HPOSN 
HBASE 





421 
422 
423 
424 
425 S3-LUP 
426 


427 
428 

429 

430 

431 

432 S3*CLR 
433 

434 

435 

436 

437 

438 

439 

440 

441 

442 

443 

444 

445 S3*CLUP 
446 

447 

448 

449 

450 

451 SCR3'‘A 
452 

453 x 


454 

455 SCROLLA 
456 

457 

458 

459 

460 

46i 

462 

463 

464 

465 

4é6éé 

467 

468 

469 

470 

471 S4NEUL 
472 

473 

474 

475 

476 

477 

478 

479 

480 

48i 

482 

483 

484 

485 

486 

487 

488 

489 

490 

491 

492 S4°LUP 
493 

494 

495 

496 

497 

498 

499 S4°CLR 
500 S4°CL 
soi 

502 

503 

504 

505 

S0é 

507 

508 

509 

510 

S11 

512 

513 S4°CLUP 
514 

515 

516 

517 

518 

519 

S20 BYTE 


ADR2 
HBASE + 1 
ADR2+1 
WNDRGHT 
CADR1) ,Y 
CADR2) ,Y 


LINE 
S3*LUP 
S3*NEUL 


LARR 
LIMITE 
SCR3°A 


#i 

LARR 
HPOSN 
HBASE 
ADR2 
HBASE+ 1 
ADR2+ 1 
BYTE 
WNDRGHT 
CADR2) ,Y 


LINE 
S3*CLUP 
S3°CLR 


UNDTOP 


LARR 
LARR 


#7 
LDEP 
UNDBTM 


LIMITE 
RMARGIN 


LDEP 


#1 
LIMITE 
S4*CLR 
LDEP 
HPOSN 
HBASE 
ADRI 
HBASE + 1 
ADRI +1 
LARR 


#1 

LARR 
HPOSN 
HBASE 
ADR2 
HBASE + 1 
ADR2+1 
UNDRGHT 
CADR1) ,Y 
CADR2) ,Y 
WNDLFT 
S4*NEWL 


S4*LUP 


LIMITE 
LARR 

LIMITE 
SCR3°A 


#i 

LARR 
HPOSN 
HBASE 
ADR2 
HBASE + 1 
ADR2+1 
BYTE 
LANIDRGHT 
CADR2) ,Y 
WNDLFT 
S4*cL 


S4*CLUP 


00 


S21 

522 
523 
524 
525 
526 
527 
528 
529 
530 

531 

532 
533 
534 
535 
536 
537 
538 
539 
540 
541 

542 
543 
544 
545 
S4é 
547 
548 
549 
550 

551 

552 
553 
554 
555 
556 
557 
558 
559 
Sé0 

Sé1 

Sé2 
563 
Sé4 
Sés 
Séé 
Sé7 
568 
569 
570 

571 

572 
573 
574 
575 
576 
577 
578 
579 
580 

581 

582 
583 
584 
s8s 
586 
587 
588 
589 
590 

591 

592 
593 
594 
595 
596 
597 
598 
599 
600 
é01 

602 
603 
604 
605 
606 
607 
608 
609 
610 
é1i 

612 
613 
614 
615 
éié 
617 
é18 
619 
620 
621 


LDEP HEX 00 
LARR HEX 00 
LIMITE DFB 191 


DEEE DE DE DE PE DE NE DE DE DEEE EEE DEEE EE EE EEE 


Cette routine rempla%ant 
HPOSN ($F411) calcule l’adr. 
de d{but d’une ligne HGRI et 
la met dans HBASE (#26). 


KXAK XX XX 


Cette routine est beaucoup 
plus rapide, car elle utilise* 
une table d'adresses, crle * 
par INITHPOS. * 

*% 
En revanche, la table occupe * 
beaucoup de place en memoire.*x 
Mais il fallait un scrolling * 
rapide... * 

* 
BE DE DE DE DE DE HE DE DE DH DE DE DE DE DE HE EE DE DEEE DH DEN 


OK OK OK OKON OK OKON OK OK ON OK OK OX 


INITHPOS LDA #192 
STA  CNTR 
LDA HPAG 


LDA #0 
STA  HPAG 


INITHPI DEC CNTR 
LDA  CNTR 
JSR $Fdii 3 HPOSN 
LDY  CENTR 
LDA HBASE+I 
STA  ADRH,Y 
LDA  HBASE 
STA ADRL,Y 
LDA  CNTR 
BNE  INITHP1 


STA  HPAG 


HPOSN TAY iÂ=liane 
JSR  FNDPAG 
LDA  ADRL,Y 
STA HBASE 
LDA  ADRH,Y 
ORA  HPAG 
STA HBASE+1I 


FNDPAG LDA  HPAG 
CMP  #$40 
BEQ FNDPG 
LDA #$20 
STA  HPAG 
FNDPG RTS 


Tables des adr. HGR pour HPOSN 
La page HGR est 1 par defaut 
En cas de changement de page, 
il faudra rappeler INITHPOS 


XX *X 


ADRH DS 192 
ADRL DS 192 


HD DE JE JE DE DE DE HE DE DE DE DE DE HE JE DE HE JE JE DE DE DE JE DE NE HE ÉD EE 


POKE JSR  FRMNUM 
JSR  GETADR 
LDA  LINNUM 
STA $6 
LDA  LINNUM+1 


STA (#6) ,Y 
LDA LINNUM+1 


STA (#6) ,Y 


CELELL LES SL LE) 


SETPEEK LOR ##4C 
STA  USR 
LDA  HPEEK 
STA  USR+1 
LDA  #)>PEEK 
STA  USR+2 
RTS 


Pom's n° 14 


622 


623 
624 
625 
é26 
627 
628 
629 
630 
631 

632 
633 
634 
635 
636 
637 
638 
639 
640 
641 

642 
643 
644 
645 
é46 
647 
648 
649 
650 
ési 

652 
653 
654 
655 
656 
657 
658 
659 
660 
ééi 

662 
663 
664 
éés 


PEEK JSR GETADR 
LDY #1 
LDA ,CLINNUM) ,Y 
TAX 
DEY 
LDA  CLINNUM) ,Y 
TAY 
TXA 
JMP  GIVAYF 
HRKHUHM HN NON MN MU DE HE DE DE DE DE DE EE 
#==s==szzzs ss 
# AUTOCOM: touchesx 
* de fonctions #* 
Re * 
*par Pascal CANTOT+x 
H====szzzzsse dm + 


* APPLE //e: Appuyer sur 


* [open-Apple] et 


SETCOM 


STA 


JMP 
CFNDLUP  LDA 
BEQ 


HORMONE HENENENENENENE NN HE DE DEEE NE DEEE 


COMLIB ASC 
C1 ASC 
C2 ASC 
C3 ASC 
Ca ASC 
cs ASC 
Cé ASC 
C7 ASC 
ce ASC 


c? ASC 


la touche 


#AUT OC OM 
KSW 
#)>AUTOCOM 
KSu+ 1 
INTDOS 


KEYIN 
KEY 
POMME 
COMMAND 
POMME + 1 
COMMAND 


CNTR 
#24 
BELL2 
#0 

CNTR 
KEY 

#nr 
DELCOM 
#°0" 
CFNDLUP 
#"e" 
CFNDLUP 


Del 


#$B0 


$C050,Y 
AUT OCOM 
COMTAB ,Y 
CNOTFND 


"PRINT" 
00 
"CATALOG" 
8D00 


"HOME : POKE33,28:LIST" 


oû 

“CALL-151°* 
8D00 

*“& DOC" 

00 

*INPUT* 

00 

*&PLAY* 

00 

*ASSEM" 

8000 

"&SUPER PRINT” 
00 

*“&NOI SE" 

00 

“&PRINT USNG)>* 
00 

“HGR* 

8D00 

*GR" 

8D00û 

*TEXT :NORMAL " 
8000 


680 
681 
682 
683 
684 
685 
686 
687 
688 
689 
690 
691 
692 
693 
694 
695 
696 
697 
698 
699 
700 
701 
702 
703 
704 
705 
706 
707 
708 
709 
710 
711 
712 
713 
714 
715 
71é 
717 
718 
719 
720 
721 
722 
723 
724 
725 
726 
727 
728 
729 
730 
731 
732 
733 
734 
735 
736 
737 


CFOUND 


COMOUT 


COMEND 


COMCR 


CNOTFND 


DELCOM 


COMTAB 


KEY 
CFOUND 


CFNDLUP 


COMTAB ,Y 
ADRCOM 


COMTAB , Y 
ADRCOM+ 1 
#0 
CADRCOM) ,Y 
COMEND 
#$8D 
COMCR 

IN,X 


COUT 
COMOUT 
#$A0 
CROUT 


##20 


C21 
c22 
C23 
Cc24 
Cc25 
C26 
c27 
c28 
Cc29 
c30 
c3i 


863 
864 


c32 
Cc33 
C34 


869 
870 


c3s 
C36 
Cc37 
875 
876 


877 
878 


c38 


881 


HEX 


738 ASC “H* 
739 DA C11 
740 ASC *G" 
741 DA Ci2 
742 ASC "!" 
743 DA  C13 
744 ASC "L" 
745 DA Cia 
746 asc "s* 
747 DA C15 
748 ASC "B" 
749 DA  Cié 
750 ASC "=" 
751 DA C17 
752 ASC *.* 
753 DA Cig 
754 ASC "R* 
755 DA Ci9 
756 asc “a” 
757 DA  C20 
758 ASC "\* 
759 DA  C21 
760 ASC “M” 
761 DA  C22 
762 ASC *$" 
763 DA  C23 
764 ASC "<" 
765 DA  C24 
7éé ASC ">" 
767 DA C25 
768 ASC "K” 
769 DA  C26 
770 ASC "N" 
771 DA  C27 
772 ASC "y" 
773 DA  C28 
774 nec *°" 
775 DA  C29 
776 ASC "7" 
777 DA  C30 
778 HEX 89 ÿTab 
779 DA  C31 
780 ASC “#* 
781 DA  C32 
782 ASC *2* 
783 DA  C33 
784 ASC “x" 
785 DA C34 
786 ASC “uw” 
787 DA  C35 
788 ASC */" 
789 DA C3é 
790 ASC *?" 
791 DA C37 
792 ASC *’" 
793 DA C38 
794 
795 HEX 00 
796 

00 

“LIST* 

00 

"MID$C* 

00 

"CHR$Ç* 

00 

"PEEKÇ* 

00 

* POKE* 

00 

"POKE-16368,0:" 

00 

*NEXT* 

00 

*CALL* 

00 

!?'HIMEM = “PEEK(115)4PEEK(116)#256! 

8D00 

!P'LOMEM = "PEEK(105)+PEEK(106)*256! 

8D00 

00 

" N ED246* 

8000 

"&CIRCLE=* 

00 

*&XCIRCLE=" 

00 

"& WAIT * 

00 

* TEXT :HOME* 

8D00 

* RNDCIDx * 

00 

"&PROUT * 

00 

00 




















ARLON NO SNS 


objet ICARE 3.1 


+8000,8645 

8000- A3 7F 
8008- A2 O2 
8010- 9S 4F 
8018- 84 80 
8020- DO F5 
8028- 20 B7 
8030- 193 AO 
8038- CS FF 
8040- C8 E8 
8048- 20 34 
8050- FF 20 
8058- BD 1B 
8060- DO CF 
8068- 193 BD 
8070- 48 60 
8078- D7 CE 
8080- CE Ca 
8088- AO AO 
8090- AO 20 
8038- 05 20 
8040- CD DO 
80A8- CS D2 
80B0- D2 AO 
80B8- CF C6 
80C0- AO DO 
80C8- C3 C1 
80D0- AO B1 
80D8- CS Da 
80E0- AO AO 
80E8- AO AO 
80FO- D4 CS 
80F8- AO AO 
8100- C3 C1 
8108- AE DO 
8110- CS D4 
8118- AE 8D 
8120- CF O0 
8128- 50 54 
8130- CF O0 
8138- CF O0 
8140- BS O0 
8148- O0 BO 
8150- 55 54 
8158- 4F 50 
8160- 44 O0 
8168- 45 47 
8170- 4F 56 
8178- 45 S2 
8180- 49 54 
8188- SO 45 
8130- 00 43 
8138- 00 58 
81A0- DO O0 
81A8- 4F 4C 
81B0- 59 50 
81B8- BA O0 
81C0- 4F 4F 
81C8- 45 58 
81D0- SS 4E 
81D8- 52 00 
81E0- 83 SS 
81E8- 84 24 
81F0- 83 AO 
81F8- 85 D6 
8200- 85 CA 
8208- 86 FC 
8210- 88 CA 
8218- 8E C4 
8220- 92 48 
8228- 92 FF 
8230- DD AS 
8238- 86 20 
8240- DE AS 
8248- A1 A9 
8250- A1 DA 
8258- 88 B1 
8260- 20 FO 








Super PRINT de D. Sureau — 
Pom's9 codes correspondant aux 


lignes 55 à 181 du source original, 
relogés à $8646 


*86FD,886D 


86FD- 20 7B DD 

8700- 20 6C DD AS CS 20 CO DE 
8708- AS 25 48 AS 24 48 AS AO 
8710- 48 AS A1 48 20 46 E7 84 
8718- FO 27 EO 19 BO 23 CA 86 
8720- 25 20 22 FC A6 50 FO 13 
8728- EO 29 BO 15 CA 86 24 68 
8730- 85 A1 68 85 AO 20 3D DB 
8738- 68 85 24 68 85 25 4C 22 
8740- FC 68 68 68 85 24 68 85 
8748- 25 20 22 FC A2 35 4C 12 
8750- D4 2C 10 CO 20 OC FD 23 
8758- 7F A8 AS OO 20 F2 E2 20 
8760- Di 8A AA 4C 2B EB 68 87 
8768- DO OB CS 18 BO O7 AA C8 
8770- 68 48 A9 O0 8D 71 87 20 
8778- 67 DD 20 52 E7 AS SO 8D 
8780- 67 87 8D 6A 87 AS S1 8D 
8788- 68 87 8D 6B 87 20 BE DE 
87930- 20 67 DD 20 FB E6 8E 65 
8798- 87 8E 6C 87 20 BE DE 20 
87A0- 67 DD 20 FB E6 EO 00 FO 
8748- A3 8E 66 87 8E 70 87 A9 
87B0- O0 8D 6E 87 8D 6D 87 8D 
87B8- 6F 87 20 E7 87 18 AD 6D 
87C0- 87 6D 70 87 8D 6D 87 90 


Pom's n° 14 


87C8- 06 EE 6E 87 20 E7 87 38 
87D0- AD 6F 87 ED 6E 87 8D 6F 
87D8- 87 BO E2 CE 70 87 20 E7 
87E0- 87 AD 70 87 DO D7 60 AD 
87E8- 69 87 18 6D 6E 87 BO 07 
87FO0- C3 CO BO 03 20 O0 88 38 
87F8- AD 69 87 ED 6E 87 90 4B 
8800- 48 AD 67 87 18 6D 70 87 
8808- BO 12 AC 68 87 FO 04 C9 
8810- 18 BO 19 AA 68 48 20 4C 
8818- 88 4C 2C 88 AC 68 87 DO 
8820- OB C9 18 BO O7 AA C8 68 
8828- 48 20 4C 88 38 AD 67 87 
8830- ED 70 87 9SO OB AC 68 87 
8838- AA 68 20 4C 88 4C 4B 88 
8840- AA 68 AC 68 87 FO O4 88 
8848- 20 4C 88 60 20 S7 F4 AD 
8850- 71 87 FO F7 AD 6A 87 AE 
8858- 6B 87 AC 6C 87 4C 3A F5 
8860- AS AO 8D 71 87 4C 77 87 
8868- 20 B7 00 DO O1 60 





ROUTINE VARIABLE 





de la Tortue 

#8AD1 ,8AE3 

8ADI- A9 80 85 14 20 E3 DF 

8AD8- 24 11 30 05 24 12 30 01 

8AEO- 60 4C 76 DD 

Tortue de DUMA - Poms6 à 


l'adresse $886E — avec modifications 
au-dessous. 


#8C75.90D2 

8C75- A9 00 8D 

8C78- CA 8C 20 7B DD 20 6C DD 
8C80- AS A1 AO O2 B1 AO 99 18 
8C88- 00 88 10 F8 E6 18 A2 O0 
8C90- C8 B1 193 093 80 S3D O0 02 
8C38- C8 E8 C4 18 90 F3 CA AD 
8CAO- CA 8C DO 16 AS AO 8D CA 
8CA8- 8C A9 8C 85 1A A9 C1 85 
8CBO- 19 A9 08 85 18 AO O0 4C 
8CB8- 931 8C AS 00 85 48 4C 70 
8CCO- FF AO CE AO C4 B7 Ca B2 
8CC8- C7 AO 00 20 91 930 A5 37 
8CDO- C9 8C FO 13 A9 8C 85 37 
8CD8- AS FO 85 36 A9 8E 85 33 
8CEO- A9 32 85 38 20 EA O3 A9 
8CE8- 2C 8D FO 8C 8D 32 8E 60 
8CFO- 2C FO FD 8D 88 8D 20 4A 
8CF8- FF 20 9C 8D A2 OO 8E 84 
8D00- 8D A6 32 30 OS A9 7F 8D 
8D08- 8A 8D AD 88 8D 30 OD A2 
8D10- 7F 8E 8A 8D 29 3F C9 20 
8D18- BO O2 O9 CO C9 AO 90 34 
8D20- 20 A8 8D A2 08 86 1F AS 
8D28- 25 OA OA OA 8D 83 8D AD 
8D30- 83 8D 20 B7 90 AS 24 18 
8D38- 65 20 A8 AD O0 20 4D 84 
8D40- 8D S1 26 91 26 EE 89 8D 
8D48- EE 3C 8D DO O3 EE 3D 8D 
8D50- C6 1F DO DB AD 88 8D A6 
8DS8- 23 CA 8E 83 8D A6 25 EC 
8D60- 89 8D 9O 1E C9 8D FO 29 
8D68- CS 8A FO 25 A6 24 EC 8B 
8D70- 8D SO OF C3 95 FO 1A AA 


Pom's n° 14 





3000- 91 08 88 CC 893 8D DO F8 
93008- FO D7 60 A5 22 OA OA OA 
3010- 8D 8F 90 CE 8F 90 18 69 
9018- 07 8D 8E 9O A5 23 OA OA 
3020- OA 8D 90 930 20 3C 8D AD 
3028- 8E 90 18 69 O1 CD 30 90 
9030- BO 30 8D 8E 30 20 B7 SO 
3038- AS 26 85 06 AS 27 85 O7 
3040- AD 8F 90 18 69 O1 8D 8F 
9048- 90 20 B7 90 A5 26 85 08 
9050- AS 27 85 09 AC 8B 8D B1 
3058- 06 91 08 C4 20 FO C8 88 
3060- 10 F5 CE 9O 90 AD 8F 90 
93068- CD 930 90 FO 9D 18 693 O1 
9070- 8D 8F 90 20 B7 90 AS 26 
9078- 85 08 AS 27 85 O9 AD 8D 
3080- 30 AC 8B 8D 91 08 C4 20 
3088- FO DB 88 10 F7 OO O0 O0 
30930- BF A9 CO 85 1F AS E6 48 
3038- A9 00 85 E6 C6 1F AS 1F 
3O0AO- 20 11 F4 A4 1F AS 27 99 
SOA8- D3 90 AS 26 99 93 91 AS 
30BO- 1F DO E9 68 85 E6 60 A8 
930B8- 20 C8 90 B9 93 91 85 26 
30C0- B9 D3 90 05 E6 85 27 60 
30C8- A5 E6 C9 40 FO O4 AS 20 
30DO0- 85 E6 60 

Table 

#9253.94F5 

93253- 20 67 DD 20 52 

‘9258- E7 AS 50 85 06 A5 51 85 
9260- 07 20 BE DE 20 67 DD 20 
39268- 52 E7 AO OO AS 50 91 06 
9270- AS 51 C8 91 06 60 A9 4C 
93278- 85 OA A9 83 85 OB AS 92 
93280- 85 OC 60 20 52 E7 AO O1 
9288- B1 50 AA 88 B1 50 A8 84 
3290- 4C F2 E2 A9 SE 85 38 A9 
3238- 92 85 39 4C EA 03 20 1B 
92A0- FD 85 06 AC 61 CO 30 06 
92A8- AC 62 CO 30 O1 60 86 1F 
932B0- AO 18 20 E4 FB AO OO A6 
92B8- 1F AS 06 C9 FF FO 4B C3 
92C0- BO 90 OE CS B8 BO OA 38 
92C8- ES BO A8 99 50 CO 4C SE 
32D0- 92 BS 15 93 FO 31 CS 06 
32D8- FO 06 C8 C8 C8 4C D1 92 
32E0- C8 B9 15 93 85 18 C8 B9 
92E8- 15 93 85 193 AO OO B1 18 
392F0- FO OF CS 8D FO OE 9D O0 
92F8- 02 E8 C8 20 ED FD 4C EE 
3300- 92 A9 AO 60 4C 8E FD A9 
9308- 20 60 20 10 FC AS AO 20 
9310- ED FD A9 88 60 DO 8B 93 
93318- C3 91 93 C5 SA 93 AA AE 
93320- 93 D4 B8 93 C9 BE 93 DB 
9328- C4 93 CO CA 93 CA D1 93 
9330- DD DE 933 DS E5 93 C8 F2 
9338- 93 C7 F7 93 Ai FB 93 CC 
9340- 08 94 D3 OD 94 C2 12 94 
9348- BD 17 94 AE 1F 94 D2 25 
9350- 94 D1 29 94 DC 2E 94 CD 
93358- 33 94 A4 39 94 BC 3F 94 
3360- BE 45 94 CB 4A 94 CE 58 
3368- 94 D9 SD 94 DE 62 94 AS 
3370- 86 S4 893 AA 94 A3 B3 94 
9378- DA BD 94 D8 C6 94 D7 DO 
3380- S4 AF D8 94 BF E3 94 A7 
3388- ED 94 O0 DO D2 CS CE Dé 
9330- 00 C3 C1 D4 C1 CC CF C7 
93398- 8D O0 C8 CF CD C5 BA DO 
93A0- CF CB C5 B3 B3 AC B2 B8 
93A8- BA CC CS D3 D4 O0 C3 C1 
93B0- CC CC AD B1 B5 B1 8D O0 
93B8- A6 AO C4 CF DB O0 C9 CE 
33C0- DO D5 D4 OO A6 DO CC C1 
33C8- D3 O0 Ci D3 D3 C5 CD 8D 

















33D0- O0 A6 D3 DS DO CS D2 AO 
33D8- DO D2 C9 CE D4 O0 A6 CE 
33E0- CF C9 D3 CS 00 A6 DO D2 
33E8- CS CE D4 AO DS D3 CE C7 
393FO0- BE O0 C8 C7 D2 8D O0 C7 
393F8- D2 8D O0 D4 CS D8 D4 BA 
3400- CE CF D2 CD C1 CC 8D 00 
3408- CC CF C1 C4 O0 D3 C1 D6 
39410- CS O0 C2 D2 DS CE OO C3 
3418- CF CC CF D2 AO BD O0 C8 
3420- DO CC CF D4 O0 D2 DS CE 
3428- O0 A6 C7 CS D4 O0 CC CS 
3430- D3 D4 O0 CD CS C4 A4 A8 





* Remplacer ‘suite Instruction” origi- 
nal par celui-ci. 

* Supprimer les lignes 65 à 90 de 
l'original. 

* Assembler à l'adresse $886E 


93438- O0 C3 C8 D2 A4 A8 OO DO 
3440- CS CS CB A8 00 DO CF CB 
9448- C5 00 DO CF CB CS AD B1 
3450- B6 B3 B6 B8 AC BO BA 00 
3458- CE CS D8 D4 O0 C3 C1 CC 
3460- CC 00 BF A2 C8 C3 CD C5 
3468- CD AO BD AO A2 DO CS C5 
3470- CB A8 B1 B1 BS5 A9 AB DO 
9478- CS CS CB A8 B1 B1 B6 A9 
3480- AA B2 BS B6 8D OO BF A2 
3488- CC CF CD CS CD AO BD AO 
3490- A2 DO CS CS CB A8 B1 BO 
3498- BS A9 AB DO CS CS CB A8 


À ORRSEAEINRIRNFEREIEIANNIRERAATTEX 


2 

3 * Suite instructions 
4 

5 SORTIE JSR #87 
é CMP #4] 
2? BNE SSUITE 





#70G0.7300 


7000- 00 00 00 00 00 00 00 00 
7008- 1C 1C 1C 1C 1C O0 1C O0 
7010- 36 36 24 12 O0 O0 O0 00 
7018- 22 7F 22 22 22 7F 22 O0 
7020- 08 3E 02 3E 20 3E 08 00 
7028- 47 25 17 O8 74 52 71 OO 
7030- OC 12 02 O4 OA 12 2E 00 
7038- 1C 1C 10 OC O0 O0 O0 O0 
7040- 18 OC 06 06 06 OC 18 00 
7048- 06 OC 18 18 18 OC 06 00 
7050- 84 9S 8E 84 8E 35 84 80 
7058- 00 08 08 3E 18 18 O0 00 
7060- 00 00 00 00 1C 1C 10 OC 
7068- 00 00 00 3E 3E O0 00 00 
7070- 00 00 00 00 1C 1C 1C 00 
7078- 40 20 10 08 04 02 O1 O0 
7080- 1F 11 19 15 13 13 1F O0 
7088- 07 04 04 O4 O4 O4 1F 00 
7090- 3F 20 20 3F 03 03 3F 00 
7098- 1E 10 10 1E 18 18 1F O0 
70A0- 91 91 91 931 BF 98 98 80 
70A8- 1F O1 O1 1F 18 19 1F O0 
70B0- SF 91 81 9F 93 93 9F 80 
70B8- 9F 91 88 84 86 86 86 80 
70CO- 1F 11 11 1F 13 13 1F O0 
70C8- 1F 11 11 1F 18 19 1F O0 
70D0- O0 1C 1C O0 1C 1C O0 00 
70D8- 00 1C 1C O0 1C 1C 10 OC 
70E0- 10 O8 04 03 04 08 10 00 
70E8- O0 3E 3E OO 3E 3E O0 00 
7O0FO- O1 02 04 18 04 O2 O1 00 


70F8- 7E 42 40 78 08 O0 08 00 
7100- 3C 24 3C O0 00 00 00 00 
7108- 1F 11 3F 21 23 23 23 O0 
7110- 1F 11 3F 21 23 23 3F O0 
7118- 3F 21 O1 03 03 23 3F O0 
7120- 1F 21 21 23 23 23 1F OO 
7128- 3F O1 OF O1 O3 03 3F 00 
7130- 3F O1 1F O1 03 03 03 00 
7138- 3F 21 O1 39 23 23 3F O0 
7140- 21 21 3F 21 23 23 23 00 
7148- O4 O4 04 OC OC OC OC 00 
7150- 20 20 20 30 30 31 1E O0 
7158- 21 11 O9 OF 13 23 23 O0 
7160- 01 O1 01 03 03 03 3F 00 
7168- 3F 49 4S 4S 4B 4B 4B 00 
7170- 27 29 29 293 2B 2B 33 00 
7178- 3F 21 21 21 23 23 3F 00 
7180- 3F 21 21 3F 03 O3 O3 00 
7188- 3F 21 21 29 2B 13 2F 00 
7190- 3F 21 21 3F 13 23 23 O0 
7198- 3F O1 O1 3F 30 30 3F 00 
71A0- 3F 04 O4 04 OC OC OC 00 
71A8- 21 21 21 23 23 23 3F O0 
71B0- 21 21 23 23 22 14 O8 O0 
71B8- 41 41 49 49 4B 4B 7F 00 
71C0- 21 12 OC OC 12 21 21 O0 
71C8- 21 21 21 3F O4 OC OC 00 
71D0- 3F 10 O8 04 O2 03 3F O0 
71D8- 1E 02 02 O2 02 O2 1E 00 
71E0- O1 02 O4 08 10 20 40 00 
71E8- 3C 20 20 20 20 20 3C 00 
71F0- O0 08 1C 36 63 00 00 00 
71F8- O0 O0 00 00 00 00 00 00 





8 JSR $Bi 
9 RTS 

10 SSUITE LDA #';° 
ii JSR $DECO 
12 UMP $8868 
13 
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7200- 00 00 00 00 00 00 00 00 
7208- 00 00 3E 20 3E 22 3E 00 
7210- 02 02 3E 22 22 22 3E 00 
7218- 00 00 3E 02 02 O2 3E 00 
7220- 20 20 3E 22 22 22 3E 00 
7228- 00 00 3E 22 3E O2 3E 00 
7230- 3C 04 1E 04 O4 04 04 00 
7238- 00 00 3E 22 22 3E 20 3E 
7240- 02 02 3E 22 22 22 22 00 
7248- 18 00 18 18 18 18 18 O0 
7250- 00 10 00 10 10 10 12 1E 
7258- 02 02 12 OA 06 OA 12 00 
7260- 18 18 18 18 18 18 18 00 
7268- 00 00 7F 49 49 49 49 O0 
7270- 00 00 3E 22 22 22 22 00 
7278- 00 00 3E 22 22 22 3E O0 
7280- 00 00 3E 22 22 3E 02 02 
7288- O0 00 3E 22 22 3E 20 20 
7290- 00 OÙ 3E 22 02 02 02 00 
7298-.00 00 3E 02 3E 20 3E 00 
72A0- 00 O4 3E 04 04 04 3C 00 
72A8- O0 00 24 24 24 24 3C O0 
72B0- 00 O0 22 22 22 14 08 00 
72B8- 00 00 41 49 49 49 7F O0 
72C0- 00 00 22 14 08 14 22 00 
72C8- 00 00 22 22 22 3E 20 3E 
72D0- 00 00 3E 10 08 04 3E 00 
72D8- 00 00 00 00 00 00 00 00 
72E0- 00 08 08 08 08 08 08 08 
72E8- 00 00 00 00 00 00 00 00 
72F0- 00 O0 00 00 00 00 00 00 
72F8- O0 00 00 00 00 00 00 00 
7300- FF 





Ecriture entrelacée/verticale 


Voici deux petites routines qui se suf- 
fisent à elles-mêmes et peuvent 
éventuellement être utilisées pour 
une présentation plus originale de 
vos programmes. 


Marcel Cottini 





5 TEXT : HOME 
10 FOR I = 1 TO 7: POKE 32,2 « 1 - 1: P 
OKE 33,1: HOME : READ AS: PRINT A 
#: NEXT l: TEXT : 


VTAB 23: END 





20 DATA LECTURE ,VISIBLEMENT,EN COLON 
NES, VERTICALES,MIS AU POINT,PAR C 
OTTINI MARCEL,POUR DEMONSTRATION. 


| 


10 TEXT : HOME 

320 415 = ‘Normalement, l'ecriture s'affi 
che, =. 

330 A28S + “du haut vers le bas,et non de 
droite, 

340 A3S = ‘vers la gauche ou inversement 


350 448 = ‘Ceci n'est que dénonstratif,e 
t arrangé à" 
360 ASS = ‘cet effet. 


370 A6S = ‘Les lignes s’entrelacent de gq 
auche à a 
380 A78 = ‘“droite,et inversenent. 


390 FOR I = 1 TO 40 

400 VTAB 7: HTAB 41 - I: PRINT LEFTS ( 
AiS,1) 

410 VTAB 8: HTAB 1: PRINT RIGHTS (A28, 
1) 

420 NEXT 

430 FOR I = 1 TO 40 

440 VTAB 9: HTAB 41 - Il: PRINT LEFTS ( 
A35,1) 

450 VTAB 11: HTAB 1: PRINT RIGHTS (A48 
,1) 

460 VTAB 12: HTAB 41 - I: PRINT LEFTS 
(ASS,1) 

470 NEXT 

480 FOR I = 1 TO 40 

490 VTAB 14: HTAB 1: PRINT RIGHTS (A6S 
,1) 

500 VTAB 15: HTAB 41 - 1: PRINT LEFTS 
(A78,1) 

500 NEXT 
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Visicalc Advanced Version (VAV) est 
déjà sorti depuis quelque temps en 
version //e, mais je n'avais pas en- 
core eu l'occasion de le tester et, 
partant, de vous en parler. VAV se 
présente sous la forme d’un classeur 
avec une documentation de plus de 
200 pages, une disquette de boot et 
une disquette programme : présenta- 
tion professionnelle. Il est indispensa- 
ble de disposer de 128K de mé- 
moire, et très souhaitable d’avoir 
deux lecteurs de disquettes; il faut 
enfin pouvoir dépenser 3.200 F HT 
prix public. 


Vitesse de calcul 


En quelque mots, c'est un tableur 
presque aussi rapide que Visicalc et 
plus puissant que Multiplan selon de 
nombreux critères. Ainsi, j'ai 
comparé diverses mesures de temps 
et de place mémoire pour le tableau 
de trésorerie utilisé dans les livres 
"Visicalc sur Apple” et ‘”’Multiplan 
pour Apple”; en voici les résultats : 


Visicalc Multiplan Magicalc  V.A.V. 


Chargement 60" 15° 53* 115” 
Mémoire libre 21K 25K 76K 56K 
Temps de calcul 237 50" 25" 33” 


Un autre tableau très simple a été 
constitué, avec des chiffres dans les 
dix premières cellules de la colonne 
1, puis 10 colonnes de 100 lignes ef- 
fectuant la somme des dix valeurs de 
la colonne 1. Le tableau suivant est 
alors obtenu : 


Visicalc Multiplan Magicailc V.A.V. 


Mémoire libre 15K  18K 64K 5S0K 
Temps de calcul 237 190" 40" 50” 


On constate que le classement selon 
la vitesse de calcul reste le même, 
avec toutefois des rapports de vitesse 
différents. Ici, les différences de vi- 
tesse sont amplifiées, ce qui est nor- 
mal pour un tableau plus grand. 


Visicalc et VAV ont un chargement 
sensiblement plus long, car celui-ci 
requiert un recalcul complet, contrai- 
rement au cas de Multiplan. Le char- 
gement de VAV est sensiblement 
plus long, ainsi que l'appel de nom- 
breuses commandes. En effet, VAV 
ne réside pas tout entier en mémoire, 
ce qui a l'avantage de laisser à l'utili- 
sateur 70K, contrairement aux 35K 
de Multiplan et aux 34K de Visicalc : 
seul Magicalc fait mieux avec 90K. 
On peut donc utiliser avec VAV des 
tableaux deux fois plus importants. 
Cela se paye par la nécessité de gar- 
der la disquette programme dans le 
premier lecteur (il faut donc en avoir 
deux) et les va-et-vient ayant lieu lors 
des appels de commandes. 


Comparons à présent VAV à Multi- 
plan, plutôt qu’à son ancêtre Visicalc, 
qui date franchement (ce qui a fait le 
succès de Magicalc, qui en est une 
amélioration sensible). Par rapport à 
Multiplan, VAV apporte de nouvelles 
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Visicalc Advanced Version 


possibilités de formatage, des fonc- 
tions nouvelles et, surtout, la prépro- 
grammation de séquences de tou- 
ches. 


Formatage 


Comme dans Multiplan, le formatage 
comporte deux parties, l’une relative 
au format proprement dit (le ‘code 
format” de Multiplan), l’autre au ca- 
drage, deux domaines dans lesquels 
les options de VAV sont plus nom- 
breuses. Dans VAV, le format (/F 
pour le format et /A pour les attri- 
buts) sert aussi à définir le type d'in- 
formation autorisée, son cadrage 
dans la cellule (plus riche que pour 
Multiplan) et le fait de cacher (/AH 
pour Hide) ou non son contenu. 
L'utilisateur peut définir des formats 
répétitifs qui seront alors appelés di- 
rectement avec ‘/F=x”, où x est le 
code du caractère associé au format 
personnalisé à utiliser. Il y a 37 
commandes débutant par ‘/A” et 
neuf par ‘/F”. Les formats, comme 
les attributs, sont reproductibles sépa- 
rément du contenu des cellules. 


Fonctions 


Par rapport aux fonctions de Multi- 
plan, il manque dans VAV les fonc- 
tions DELTA et NBITER liées au 
calcul itératif, et donc inutiles dans 
VAV), ECARTYPE, STXT, SIGNE. 
LIGNE et COLONNE. 

Les fonctions nouvelles sont principa- 
lement les fonctions financières, les 
fonctions de gestion de dates et 
DOTPROD. Cette dernière fonction, 
introuvable dans les autres tableurs 
classiques (même Lotus 1-2-3..), ef- 
fectue la somme des produits de 
deux groupes de valeurs : le produit 
scalaire. 

Les fonctions financières sont FV (va- 
leur future), PERIODS (calcul du 
nombre de périodes de rembourse- 
ment), PMT (mensualités à payer), et 
IRR (taux de rendement interne), en 
plus du désormais classique NPV (la 
valeur actuelle nette). 

Il y à neuf fonctions de calcul de 
dates, permettant entre autres de cal- 
culer le nombre de jours entre deux 
dates. 


Préprogrammation 


On peut, à l’aide de ‘’K=”, pro- 
grammer des séquences de touches 
complètes, appelées simplement par 
"Ctrl-S x”, où x sera le code de 
commande de la séquence souhai- 
tée. Cette capacité de préprogram- 


Hervé Thiriez 


mer des traitements standards ne se 
trouve actuellement que dans Lotus 
1-2-3: elle n'est disponible dans 
aucun tableur actuel sur Apple II. 
Cette préprogrammation permet de 
gagner beaucoup de temps lors de la 
réalisation de tableaux, en évitant les 
opérations répétitives, telles que l'in- 
sertion d'une colonne de séparation 
avec des ”!”, l'insertion d'une ligne 
de titrage avec les mois de l’année, 
ou la création d’une formule de tota- 
lisation en ligne puis sa répétition 
vers le bas. 

La préprogrammation permet aussi 
par exemple d'automatiser des opé- 
rations dans lesquelles il est impor- 
tant d'éviter les erreurs, telles que la 
lecture ou la sauvegarde partielle 
d'un tableau en format DIF. 


Limites de VAV 


VAV est inférieur à. Multiplan au ni- 
veau de la ‘’consolidation”, du fené- 
trage et de l’utilisation de noms. Il ne 
peut, comme Multiplan, lier deux ou 
plusieurs tableaux de façon active. Il 
est limité à deux fenêtres, plus les 
titres, ce qui fait tout de même cinq 
fenêtres par rapport aux huit (les 
titres en prennent quatre) de Multi- 
plan. Il ne peut non plus utiliser des 
noms dans ses formules, pour définir 
par exemple une cellule de contribu- 
tion par ”’Px Vente - Px Achat”. 


Conclusion 


Comme je l'avais dit dans la conclu- 
sion de l'analyse de Magicalc, il est 
difficile de dire si un tableur est 
“meilleur” qu’un autre; cela n’a pas 
beaucoup de sens. Finalement, VAV 
donne à l'utilisateur une plus grande 
capacité mémoire et des calculs plus 
rapides que ceux de Multiplan; sur 
ces points, il est par contre inférieur à 
Magicalc. Ses fonctions financières 
sont sensiblement plus riches, et il est 
le seul des tableurs sur Apple à offrir 
la préprogrammation de séquences 
de touches et la fonction DOTPROD. 
En compensation, pas d'utilisation de 
noms ni de liens externes facilitant la 
consolidation. En conclusion, ce pro- 
duit possède un excellent rapport 
performance/prix. 


En ce qui concerne Multiplan, n’ou- 
blions pas la sortie (septembre 84) 
de la version 1.07, qui ajoute des 
fonctions financières (dont le taux de 
rendement interne), est compatible 
avec le //c et exploite les 64K de la 
carte 80 colonnes étendue. Quand je 
pense que j'ai déjà plus de 10 ta- 


-bleurs sur mon brave Apple II... = 
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Il était temps qu'un capitaliste 
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N'apprenez plus à devenir une machine, Apple a inventé Macintosh... c 
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PEACHTREE,, LA COMP 
UE C’EN EST PRES 





La comptabilité, c'est long, compliqué, 
fastidieux ! 
Tout celà était vrai avant Mac Accounting. Avec 
Mac Accounting, le nouveau logiciel de comptabilité 
de Peachtree, finis les livres de caisse en deux exem- 
plaires, finis les bons de caisse, finis les carbones, 
terminées les mises a jour qui font perdre du temps. 
Mac Accounting est un programme comptable déve- 
loppé spécialement par Peachtree pour le MacIntosh. 
Et dans le domaine particulier de la comptabilité, 
la compétence de Peachtree n'est plus à prouver. 
Avec plus de 100.000 utilisateurs dans le monde 
entier, Peachtree possède une très large expérience 
des besoins des petites et moyennes entreprises 
en matière de comptabilité. Spécialement étudié pour 
un utilisateur n'ayant aucune connaissance infor- 
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matique préalable, Mac Accounting est conçu pour 
être le plus proche des systèmes manuels... avec 
l'exactitude et la rapidité des solutions informatiques. 
Un comptable reconnaît immédiatement les pages 
d'un journal de caisse ou du Grand Livre: c'est 
exactement ce qu'il retrouvera sur l'écran du Mac 
Intosh lorsqu'il utilisera Mac Accounting. 

Mac Cash est le premier des deux program- 
mes qui constituent Mac Accounting. C'est un livre de 
caisse sur écran. Idéal pour les PME, ses carac- 
téristiques parlent d'elles-mêmes. La taille du journal, 
le titre des colonnes, la période comptable et les 
formats monétaires sont définis par l'utilisateur. 
Mac Cash accepte jusqu'à cinq taux de taxe, et 
huit colonnes d'analyse des prix hors-taxes, sa mise 
à jour est automatique au fur et à mesure de la 
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TA DEVIENT SI SIMPLE 
E UN PECHE. 





saisie des opérations, enfin l'utilisateur spécifie lui- 
même les modèles des états de sortie et leur contenu. 
Bref, un outil simple et performant. 

Mac Ledger est le second module de Mac 
Accounting, c'est la partie comptabilité générale, 
Le format du journal est standard et peut être utilisé 
aussi bien pour les comptes fournisseurs que pour 
les comptes clients, L'utilisateur définit lui-même le 
format des fiches comptables qui se sélectionnent 
facilement à l'aide de la souris Mac Intosh. Les 
opérations saisies peuvent être analysées par type 
de produit, par territoire, par vendeur ou par toute 
autre variable définie par l'utilisateur... 
Les créances sont analysées sur trois périodes, 
ce qui facilite contrôle et réajustement. En résumé 
le complément indispensable de Mac Cash. 
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Dernier avantage : Mac Accounting a été 
conçu en français et peut être utilisé par n'importe 
quel utilisateur en moins de trente minutes. 

Le doute n'est plus permis : avec Mac Intosh et Mac 
Accounting la comptabilité devient si simple que c'est 
presque un péché. 


Peachtree est distribué par Logiciel PC : 113, bd Péreire 
75017 Paris. Tél. : 763.62.88. 


Peachtre 


/ 
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La pratique de l'Apple 11 
tome | 

bar Nicole Bréaud-Pouliquen 

Cet ouvrage présente les spécificités 
du Basic Applesoft à partir d'une 
description du matériel et du logiciel 
du système Apple. Les techniques 
de programmation, de composition 
et d'animation de dessins et graphi- 
ques colorés y sont expliquées à l'aide 
d'exemples illustratifs et d'exercices 
résolus. 


128 pages - 80,00 FF 


La pratique de l'Apple fi 
tome 2 

bar Nicole Bréaud-Pouliquen 

Ce second volume de la pratique de 
l'Apple Il est consacré au système 
d'exploitation disque, à la gestion 
des fichiers, à l'impression et aux 
imprimantes, à la carte horloge 
Appleclock. De nombreux exemples 
de programmes illustrent les fonc- 
tions et les commandes décrites. 


120 pages - 80,00 FF 
La pratique de l'Apple I 
tome 3 


bar Nicole Bréaud-Pouliquen 

et Daniel-Jean David 

Ce volume est une initiation à la 
programmation en langage machine 
6502 dont le jeu d'instructions est 
expliqué et utilisé. L'assembleur 
symbolique et ses logiciels connexes 
y sont décrits. L'inceraction avec le 
Basic et avec le système y est étudiée, 


176 pages - 90,00 FF 


Clefs 


pou Apple | 

par Nicole Bréaud-Pouliquen 

Un livre de référence, dans la collec- 
tion “Mémentos”, destiné à se trou- 
ver en permanence à coté de l'ordi- 
nateur Apple Il. Son but est l'accès 
rapide à l'information : syntaxe des 
commandes, codes caractères, mes- 
sages d'erreurs, codes machine, 
adresses utiles. || comporte égale- 
ment un recueil de 25 “trucs” utiles, 
les “Comment... ?", 


144 pages - 100,00 FF 
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L'’Apple et ses fichiers 

bar Jacques Boisgontier 

Pour apprendre progressivement la 
programmation des applications uti- 
lisant les fichiers, l'ouvrage com- 
mence par une présentation concise 
et illustrée des commandes du Sys- 
tème d'Exploitation Disque et des 
instructions du Basic Applesoft. Les 
instructions des fichiers séquentiels 
et à accès direct sont ensuite décri- 
tes ainsi que leur utilisation. Des 
méthodes pratiques, souvent mal 
connues, montrent comment utiliser 
au mieux des fichiers à accès direct : 
accès indexé, liste inverse. Une 
vingtaine de programmes illustrent 
l'utilisation de ces techniques. 

le livre : 176 pages - 90,00 FF 
La disquette d’accompagne- 
ment : 195,00 FF 

Pour Apple Il, Il plus, lle - Dos 3.3 - 
version 48 K ou plus. 


Multiplan pour Apple 11 plus 
et //e 

par Hervé Thiriez 

Multiplan est un progiciel qui per- 
met de gérer plusieurs tableaux 
simultanément; cet ouvrage sera 
pour les possesseurs d'ordinateurs 
Apple Il Plus ou //e un véritable guide 
d'utilisation de Multiplan grâce à des 
exemples progressifs et à de nom- 
breux cas d'application (gestion de 
portefeuilles, de copropriété, feuille 
de paie, impôts, tableaux de bord, 
etc.). 

Le livre : 216 pages - 100,00 FF 
La disquette d’accompagne- 
ment : 195,00 FF 

Pour Apple Il plus, lle - Dos 3.3 - 
version 64 K ou plus (Disquette 
maitresse Multiplan indispensable). 


Vi à Apf 

par Hervé Thiriez 

Après une présentation progressive 
du modèle Visicalc, l'ouvrage étudie 
de nombreux cas d'application 
feuille d'impôt, gestion de copro- 
priété, paye, facturation.…., permet- 
tant d'introduire les différentes 
instructions et astuces d'utilisation. 
Le livre : 176 pages - 90,00 FF 
La disquette d’accompagne- 
ment : 195,00 FF 

Pour Apple Il, Il plus, lle - Dos 3.3 - 
version 48 K ou plus (Disquette 
maitresse Visicalc indispensable). 
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Pascal UCSD sur Apple fl 
par Jacques Rouault et Patrice Girard 
L'ordinateur Apple Il, le langage 
Pascal et le système d'exploitation 
UCSD forment à eux seuls le plus 
petit ensemble de micro-informati- 
que professionnelle. Une première 
partie de cet ouvrage est consacrée 
à l'étude de ces trois éléments. Sont 
ensuite abordés les programmes de 
mise en route. Enfin les types et ins- 
tructions Pascal UCSD sont étudiés 
en détail, ce qui permettra au lecteur 
de se rendre compte de la richesse 
mais aussi de la facilité d'emploi du 
Pascal. 


232 pages - 110,00 FF 


Gestion de fichiers 

et de périphériques 

pour Apple Il / Pascal 

par Hervé Haut 

Ce livre propose un moyen rapide 
et facile pour gérer les fichiers et les 
périphériques sur Apple. De la ges- 
tion de bibliothèque à l’utilisation 
des périphériques, l'auteur propose 
un ensemble de programmes utili- 
taires, écrits en Pascal. Un exposé 
des techniques les plus élaborées 
permettra d'atteindre le niveau suf- 
fisant pour utiliser les méthodes de 
programmation mises en œuvre. 


176 pages - 95,00 FF 


Les bases de données 


sur Apple I 

par Michel Keller 

L'objet de cet ouvrage est d'aider le 
lecteur à faire un choix parmi les 
nombreux logiciels existants sur 
Apple. Quatre de ces logiciels sont 
sélectionnés ici : PFS et PFS/Report 
- DB Master - CX BASE 200 - DBASE 
Il. Pour chacun on trouve une des- 
cription détaillée du logiciel lui-même 
ete ses procédures de mise en route, 
de création de fichier, de saisie des 
données, de maintenance et d'édi- 
tion. L'auteur termine cette étude 
par l'exposé des avantages et des 
inconvénients inhérents à chaque 
logiciel. 


144 pages - 85,00 FF 


Microbook 
données pour Apple || 

par Ted Lewis 

Microbook est un système de ges- 
tion de données et un outil de 
développement de programmes 
conçu pour transformer l'Apple Ilen 


Envoyer ce bon 
accompagne de voire 
reglement a 
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un outil de classement de fichiers, 
de collecte et de recherche d'infor- 
mations, et de traitement de don- 
nées. C'est un ensemble de pro- 
grammes écrits en Pascal qui fait de 
l'ordinateur un véritable biblio- 
thécaire. 

Les emplois de Microbook sont 
multiples : il peut être utilisé pour 
quasiment toutes les applications où 
le stockage et la recherche de don- 
nées est importante. Les program- 
mes étant tres longs, il est recom- 
mande d'acheter également la dis- 
quette d'accompagnement, proposée 
en deux versions : l'une compilée, 
l'autre code source. 


Le livre : 248 pages -135,00 FF 


par Ted Lewis 


Apple Il, Il plus, //e et//c avec système 
Pascal disquette simple face, compi- 
lée, donc non modifiable. 


Prix : 195,00 FF 


Pour ln SUISSE frais de vont sur tout envoi 1.50 FS 
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Microbook 


bar Ted Lewis 


Apple I, Il plus, //e et //c, avec sys- 
tème Pascal, disquette 2 faces enre- 
gistrées. 


Prix : 295,00 FF 


Le système Pascal ainsi que les consi- 
gnes d'utilisation des programmes 
contenus dans le livre sont indispen- 
sables. Cette disquette existe en 
deux versions : l’une, double 
face, destinée aux passionnés 
de la programmation en Pascal, 
qui pourront directement pro- 
grammer dans ce langage, et 
développer et étendre à leur 
gré les facultés du système. La 
seconde, compilée, simple face, 
destinée aux personnes qui ne 
connaissent pas la programma- 
tion en Pascal ou qui n'ont pas 
le temps de programmer elles- 
mêmes, et qui désirent utiliser 
directement les multiples pos- 
sibilités de Microbook. 

Tous les programmes proposés dans 
le livre sont présents dans chacune 
des disquettes, exceptés les ordres 
pour imprimante. 
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Disquettes 


La Pierre Molle, Jeu réalisé par 
Bruno Rives et diffusé par ACI. 


Bruno Rives est le responsable de la 
ligne 68000 chez Apple Seedrin : ce 
n'est donc pas le premier venu: il a 
même signé des articles dans notre 
revue, c'est tout dire ! 

La Pierre Molle est un jeu d'adresse 
nécessitant aussi un certain sens stra- 
tégique. Vous tombez en panne avec 
votre soucoupe volante sur une pla- 
nète où se trouve heureusement un 
bidon de carburant. Votre travail 
consistera à aller chercher ce bidon 
en sautant sur des pierres, certaines 
dures, d’autres molles. 

Ces pierres tombent du ciel et vous 
devez les éviter lors de leur chute, 
puis les utiliser. Ce jeu est une excel- 
lente démonstration de la capacité 
d'apprentissage de l'être humain. Au 
début, vous n'allez franchement pas 
loin. un beau jour, vous devenez 
capitaine, puis commandant et, si 
vous devenez très fort, chevalier. 

Les effets visuels et sonores du jeu 
sont fort réussis: manifestement, 
l'Apple Il est dépassé sur ces deux 
plans. Nous avons regretté, après un 
certain nombre de parties, que l'on 
ne puisse rendre la chute des pierres 
aléatoires. Autre regret, l'impossibilité 
de stocker le meilleur score de plu- 
sieurs joueurs simultanément. Par 
contre, nous avons apprécié la possi- 
bilité de choisir entre deux vitesses 
de jeu, y compris en cours de partie. 
En conclusion, il s’agit là d'un jeu 
addictif qui m'a, à plusieurs reprises, 
forcé à me coucher plus tard que 
prévu. Heureusement, il est possible 
de couper le son à loisir. 


Eleugram, disquette mensuelle de 
jeu vendue par CompuSoft. 


Nous avons été ahuris de voir que, 
dès le lancement effectif du Macin- 
tosh en France, on pouvait ainsi 
trouver une disquette mensuelle de 
jeu. 

Il s’agit d'une disquette comportant 
une vingtaine de problèmes logiques 
pour lesquels une grille d'analyse est 
proposée sur l'écran. C’est le type de 
problème et de grille que l’on trouve 
dans la revue Eleusis (la similitude 
des noms n’est pas due au hasard). 
Le programme fournit le cas échéant 
une assistance au joueur. Il est possi- 
ble de faire remplir par le pro- 
gramme toutes les cases directement 
impliquées” par les cases que vous 
noircissez à un moment donné. 

Les problèmes sont variés, la présen- 
tation soignée et l'assistance au 
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Les essais du Macintosh 


joueur bien réglable. Mon seul regret, 
en tant que grand joueur, est qu'il 
n'y ait sur la disquette qu'un seul 
type de jeu, même si cela correspond 
à de nombreux problèmes. À moins 
d'être un fana de jeux logiques de ce 
type, on préférera probablement 
acheter une disquette de temps en 
temps plutôt que de s'abonner. 


Matériel 


Alpha Systèmes annonce des unités 
de disques durs pour le Macintosh : 
5 Mo sur cartouche amovible, 10 Mo 
fixe, 5 Mo fixe + 5 Mo amovible et 
10 Mo fixe + 5 Mo amovible. 
L'unité se connecte sur la sortie RS 
432 du Mac, qui devra donc choisir 
entre communiquer et accéder au 
disque... 


Enfin, ceux qui désirent avoir le pro- 
cesseur du Mac, le fameux 68000, 
sur leur Apple II+ ou //e, seront 
comblés par la carte 68000 SAY- 
BROOK (avec mémoire de 128K) 
annoncée elle aussi par Alpha Systè- 
mes : 8 MHz (9.950 F) ou 12,5 MHz 
(12.950 F) ou enfin 14 MHz (14.950 
F). Les programmes développés en 
Applesoft tourneront 10 à 30 fois 
plus vite avec l'interpréteur de la 
carte; le Pascal p-UCSD version IV-I 
étant lui aussi fourni en standard, on 
pourra tourner 5 à 20 fois plus vite 
en Pascal et développer des pro- 
grammes destinés aux IBM PC/XT, 
Rainbow 100... à partir du bon vieil 
Apple II. 


Bibliographie 


Macintosh/Multiplan/MacPaint. 
par Eddie Adamis, Cedic/Nathan. 
142 pages. 89 F. 


Réaliser un livre d'initiation à Mac- 
Paint et à Multiplan sur le Macintosh 
correspond à une gageure. En effet. 
la particularité de ce matériel est de 
rendre aisé tout apprentissage : à 
quoi peut alors servir un livre d'initia- 
tion ? 

I est certain qu'un tel livre n'est pas 
indispensable: il facilitera cependant 
le travail du débutant, en l'amenant 
à ‘réaliser une démonstration” livre à 
la main. 


Les deux premiers tiers du livre sont 
consacrés à Multiplan. La démonstra- 
tion est claire, mais on n'y trouvera 
ni astuces d'utilisation, ni exemples 
divers. C'est une bonne démonstra- 
tion. et rien de plus. Le reste de l'ou- 
vrage est une ‘démo de MacPaint. 

En conclusion, le livre est clair et fa- 


Hervé Thiriez 


cile d'accès. Ceci dit, 45 minutes de 
présentation par un utilisateur averti 
vous en apprendront autant. 


The Apple Macintosh Book, par 
Cary Lu, Microsoft Press, 385 pages, 
$18.95. 


Présentation : une couverture rouge 
traversée par un sigle “Mac”, en 
rouge plus foncé et en forme de graf- 
fiti. 

Le seul reproche que l'on puisse 
faire à ce livre, c'est qu’il ne soit pas 
encore disponible en français. Vendu 
par Microsoft (en France aussi), cet 
ouvrage est la bible de l'utilisateur du 
Mac. Après une brève section de 
présentation, l'auteur présente en 
115 pages tous les logiciels tournant 
déjà ou prévus à court terme (y 
compris le Basic Apple, différent du 
Basic Microsoft). Une troisième sec- 
tion analyse le matériel, élément par 
élément; on trouve dans cette partie 
(136 pages) un chapitre sur le dé- 
pannage, un sur l'entretien, et même 
un chapitre de comparaison avec 
l'IBM PC. La dernière partie de l’ou- 
vrage parle de communications, de la 
façon d'échanger des informations 
avec d'autres ordinateurs, montre 
comment photographier l'écran et 
enfin contient un chapitre technique 
plein de renseignements utiles. 

Le livre est bien présenté : la table 
des matières détaillée permet de re- 
trouver rapidement ce que l'on cher- 
che. Cary Lu, éditeur micro-informa- 
tique de High Technology. profite de 
son expérience pour parler des déve- 
loppements futurs du Macintosh 
comme de la micro-informatique en 
général. Les sujets couverts sont mul- 
tiples: il y à même quatre pages 
s'adressant aux handicapés et leur 
montrant comment utiliser au mieux 
le Macintosh. 

En conclusion, ce livre est un must 
pour ceux qui souhaitent connaître 
(et maîtriser) toutes les possibilités du 
Macintosh. Feuilletez-le avant de 
l'acheter, vous serez convaincu. 


Avis aux auteurs : nous ne man- 
quons pas, loin de là, de contribu- 
tions intéressantes pour la famille 
Apple //. Par contre, vu la nouveauté 
du sujet, nous n'avons pas encore 
reçu de contributions pour le Macin- 
tosh. Faites partager votre savoir-faire 
et envoyez-nous vos trucs et pro- 
grammes. 
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Comme des milliers 
d'utilisateurs en France, 


découvrez avec 


BABY MEMDOS 


l'univers fabuleux des possibilités de MEMDOS 


— un gestionnaire d'écran 
— un séquentiel indexé multiclé 


— un gestionnaire d'erreurs 
- la notion de sous-programmes avec passage de paramètres 


et beaucoup plus... 
Pour Apple Il. Ile, llc et Ill. 


Disquette et Documentation. 
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MEMDOS 
Pomme d'Or du Meilleur Logiciel Système 
décerné par APPLE 


C] Contre remboursement 169 F + 30 F de port - Soit 199 F 


BON DE COMMANDE À adresser à : MEMSOPFT S.A. 3 Meyerbeer - 06000 Nice 


2] Je joins un chèque de 169 F + 15 F de port - Soit 184 F 
à l'ordre de Memsoft S.A. 


[ ] Professionnel 


L] Je suis Amateur 
Je possède un Apple type 


FRANCE CONSEIL 
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MacWrite vers AppleWriter //e 


Vous utilisez maintenant un Macin- 
tosh et Macwrite pour vos textes 
mais, comme nous {voir Pom's 10, 
"La communication avec l'Apple”), 
vous avez mis au point des applica- 
tions en WPL sur votre Apple //e. 
Les deux petits programmes écrits en 
Basic ici’ proposés vous permettent 
de transmettre vos textes depuis le 
Mac vers l'Apple //e, sans avoir re- 
cours à un logiciel de communication 
comme MacTerminal. 


Pour utiliser ces programmes, il vous 
faut, outre le Mac et l'Apple //e, une 
carte super série connectée dans le 
slot 2, et une disquette MS-Basic. 
Pour relier les deux appareils, on 
branche le câble normalement des- 
tiné à l'imprimante ImageWriter sur 
la carte super série, elle même ainsi 
configurée : 


Le texte écrit avec MacWrite doit être 
sauvegardé avec l'option ‘Le texte 


es 
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d'un lecteur de disquettes, sur la dis- 
quette où se trouve le programme 
émetteur”. Ensuite, tout est très 
simple : 


e le Macintosh vous demande le 
nom du fichier à transférer: 

e le texte est transmis à l'Apple //e; 

e le //e vous demande le nom sous 
lequel vous désirez conserver le fi- 
chier transmis, ainsi que le nu- 
méro du lecteur de destination: 

e le texte est stocké sur disquette, 
prêt à être chargé avec AppleWri- 
ter. 


Note: dans certains cas, la carte 
super série annule le code 127 utilisé 
pour marquer la fin du fichier. Si cela 
se produit, il vous suffit d'envoyer 
“manuellement” ce code pour que 
fout rendre dans l'ordre (LPRINT 
CHR$1127). 








seul” et, si vous ne disposez que TERMINAL E 
RECUP APPLE II 60 PRINT : INPUT "OK ? (0/...) "3:2$%: IF 
2$ < > "O" THEN 50 
100 PRINT : PRINT CHR$ (4)"OPEN"FIC#", 

3. TEXT + HOME FOR J = 0 TO 1 - 1 
7 REM LES COMMANDES CI-DESSOUS "F D", 105 PRINT CHR# ( PEEK CAD + J)); 

open EE D" COMPORTENT UN CTRL A | 197 NEXT : PRINT : PRINT CHRS (4)-CLOS 

EN PREMIER CARACTERE, JUSTE APRE E 

S LE PREMIER " : s 
Pi MENT 060 00 N duse 110 PRINT CHR$ (4)"PR£O 
11 PRINT CHR$ (4)"PR£2": PRINT "F D" 
12 PRINT "X E": PRINT "E D": PRINT C 

HR$ (4)"PR£O" 
20 PRINT CHR$ (4)"IN£2" TEST 
30 CALL 768:2 = PEEK (6): IF Z = 127 T 

HEN 50 0300- 20 05 C2 29 7F 85 OQé 60 
40 POKE AD + 1,2: PRINT CHR$ (2)3;:1 = 

1 + 1: GOTO 30 0300- 20 05 C2 JSR  $C205 
S0 PRINT : PRINT CHR#$ (4)"IN£O": PRINT | 0303- 29 7F AND  £87F 

3 PRINT : INPUT “FICHIER : ";FIC 0305- 85 0é STA $06 
$: INPUT "DRIVE "3 0307- 60 RTS 


A —————————————"——] ——_]_ 


PROGRAMME MAC 


10 CLS:DEFINT A-Z:CALL MOVETO(100, 100 
YCALL TEXTFONT(O):WIDTH "LPTI:", 
2SS:INPUT ‘Fichier ? "F$:OPEN “I”, 
F$ 

20 IF EOF(1) THEN 230 

30 LINE INPUT#] E$ 

40 L=LEN(E$):IF L=0 THEN LPRINT: GOTO 20 

SO FOR I=1 TO L:FOR D-0 TO 40:NEXT: 
A=ASC(MID$(E$ 1,1)):IF A<32 THEN 220 

60 1F Ac127 THEN LPRINT CHR#(A)::GOTO 
220 

70 IF A=145 THEN LPRINT CHR$#(125):: 
GOTO 220 
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80 IF A=142 THEN LPRINT CHR$(123):GOTO 
220 

90 IF A=136 THEN LPRINT CHR$(64)::GOTO 
220 

100 IF A=157 THEN LPRINT CHR$(124):: 
GOTO 220 

110 IF A*l4l THEN LPRINT CHR$(®).: 
GOTO 220 

120 IF A=197 THEN LPRINT CHR$#(04): 
CHR$(97);:GOTO 220 

130 IF A=144 THEN LPRINT CHR$#(94): 
: CHR#(101)::GOTO 220 

140 IF- A=148 THEN LPRINT CHR$(04): 
CHR$(105);:GOTO 220 

150 IF A=153 THEN LPRINT CHR$(94): 


CHR$(111);:GOTO 220 

160 IF A=158 THEN LPRINT CHR$(94): 
CHR$(117);:GOTO 220 

170 IF A=138 THEN LPRINT CHR$(128); 
CHR$#(97)::GOTO 220 

180 IF A=145 THEN LPRINT CHR$(1286): 
CHR$(101);:GOTO 220 

190 IF A=149 THEN LPRINT CHR$(128); 
CHR$(105);:GOTO 220 

200 IF A=154 THEN LPRINT CHR$(128): 
CHR$(111);:GOTO 220 

210 IF A=159 THEN) LPRINT CHR$(128): 
CHR$#(117); 

220 NEXT:LPRINT:GOTO 20 

250 CLOSE®1 :LPRINT * ”; CHR$(127) : END 
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Les tokens du Basic Microsoft 


Jean-Luc Bazanegue 


Le terme ‘’token” n'est certainement 
pas inconnu des lecteurs de Pom's. 
Cependant, pour ceux d’entre-vous 
qui nous rejoignent à l'occasion de 
ce numéro, il faut rappeler qu'un 
token est la représentation interne 
d'un mot-clé du Basic. Ainsi, en 
Basic Microsoft (et sur le Macintosh), 
l'instruction PRINT devient, lorsque 
vous appuvez sur la touche RETURN 
pour valider une ligne, un octet 
contenant la valeur 172 ($AC en 
hexadécimal). Les tokens permettent 


négligeable et facilitent le travail de 
l'interpréteur. 


Voici ce qui nous a poussé à recher- 
cher les tokens du Basic Microsoft : 
nous disposions d'un Mac depuis 
quelques temps, mais cet ordinateur 
sans langage de programmation res- 
semblait étrangement à un presse- 
purée sans pommes de terre: nous 
l'avions donc quelque peu délaissé. 
Et puis, un matin, nous vîmes arriver 
une disquette contenant le Basic. 


un peu de sang à la bête (au Mac 
bien sûr...). Malheureusement, la dis- 
quette en question nous est parve- 
nue sans documentation: pour 
connaître la liste des mots-clé de ce 
langage, il fallait trouver la table des 
tokens. 

Nous remercions ceux qui se sont 
jetés sur leurs photocopieuses afin de 
nous envoyer une copie de leur do- 
cumentation, mais cela est inutile: 
depuis que nous avons établie la liste 
jointe, Microsoft nous a fait parvenir 


un gain de place en mémoire non Voilà qui était de nature à redonner les précieux documents. & 








ABS $s0 128 EXP $90 144 MERGE $F8 $9E 248 158 SAVE $FS $AB 248 171 
ALL $P9 $FF 249 255 FIELD $91 145 MID$ $A5 165 SETCURSOR $FB $FD 251 253 
AND $F1 241 FILES $FS $94 248 148 MKD$ $A6 166 SGN $B4 180 
APPEND $F9 $FE 249 254 FILLARC $FB $D8 251 216 MKI$ $A7 167 SHOW CURSOR $FB $FB 251 251 
AS $F9 $FD 249 253 FILLOVAL $FB $E2 251 226 MKS$ $A8 168 SHOWPEN $FB $F8 251 248 
ASC $s1 129 FILLRECT $FB $E7 251 231 MOD $F6 246 SIN $B5 181 
ATN $82 130 FILLROUNDRECT $FB $DD 251 221 MOUSE $FS $BS 248 184 SPACE$ $B6 182 
AUTO $FS $80 248 128 FIX $92 146 MOVE $FB $F1 251 241 SPC $F9 $FA 249 250 
BACKPAT $FB $FF 251 255 FN $93 147 MOVETO $FB $F2 251 242 SQR $B7 183 
BASE $F9 $FC 249 252 FOR $94 148 NAME $FS $9F 248 159 STEP $F9 $F9 249 249 
$F8 $B5 248 181 FRAMEARC $FB $DC 251 220 NEW $FS $AO 248 160 STOP $FS $AD 248 173 
CALL $s3 131 FRAMEOVAL $FB $E6 251 230 NEXT $A9 169 STR$ $Bs 184 
CDBL $84 132 FRAMERECT $FB $EB 251 235 NOT $E7 231 STRING$ $B9 185 
CHAIN $F8 $81 248 129 FRAMEROUNDRECT  $FB $EI 251 225 OBSCURECURSOR $FB$FA 251 250 SWAP $F8 $AE 248 174 
CHR$ $s5 133 FRE $FS $95 248 149 ocT$ $F8 $AI 248 161 SYSTEM $FS $AF 248 175 
CINT $s6 134 GET $9s 149 on $AA 170 TAB $F9 $FS 249 248 
CIRCLE $FS $B6 248 182 GETPEN $FB $F7 251 247 OPEN $AB 171 TAN $BA 186 
CLEAR $FS $82 248 130 GOSUB $96 150 OPTION $$FS $A2 248 162 TEXTFACE $FB $EE 251 238 
CLOSE $87 135 GOTO $97 151 OR $F2 242 TEXTFONT $FB $EF 251 239 
CLS $FS $83 248 131 HEX$ $FS $96 248 150 OUTPUT $F9 $FB 249 251 TEXTMODE $FB $ED 251 237 
COMMON $ss 136 HIDECURSOR $FB $FC 251 252 PAINTARC $FB $DB 251 219 TEXTSIZE $FB $EC 251 236 
CONT $F8 $84 248 132 HIDEPEN $FB $F9 251 249 PAINTOVAL $FB $ES 251 229 THEN $E6 230 
cos $s9 137 IF $9s 152 PAINTRECT $FB $EA 251 234 TIME $FS $BO 248 176 
CSNG $FS $85 248 133 IMP $F5 245 PAINTROUNDRECT  $FB $E0 251 224 TIMER $FS $BD 248 189 
CvD $8A 138 INITCURSOR $FB $FE 251 254 PEEK $FS $A3 248 163 To $ES 229 
CyI $8B 139 INKEY$ $99 153 PENMODE $FB $FS 251 245 TROFF $FS $B2 248 178 
cvs $sc 140 INPUT $9A 154 PENNORMAL $FB $F3 251 243 TRON $F8 $BI 248 177 
DATA $sD 141 INSTR $F8 $97 248 151 PENPAT $FB $F4 251 244 USING $E4 228 
DATES $F8 $86 248 134 INT $98 155 PENSIZE $FB $F6 251 246 USR $F9 $F7 249 247 
DEF $F8 $8B 248 139 INVERTARC $FB $D9 251 217 POINT $F8 $B9 248 185 VAL $Bc 188 
DEFDBL $FS $89 248 137 INVERTOVAL $FB $E3 251 227 POKE $FS $A4 248 164 VARPTR $FS $B3 248 179 
DEFINT $FS $87 248 135 INVERTRECT $FB $E8 251 232 POS $F8 $A5 248 165 WAIT $F9 $F6 249 246 
DEFSNG $F8 $88 248 136  INVERTROUNDRECT $FB $DE 251 222 PRESET $F8 $BA 248 186 WEND $BD 189 
DEFSTR $F8 $8A 248 138 KILL $FS $98 248 152 PRINT $AC 172 WHILE $BE 190 
DELETE $FS $8C 248 140 LCOPY $F8 $B7 248 183 PSET $FS $BB 248 187 WIDTH $F8 $B4 248 180 
DIM $F8 $8D 248 141 LEFT$ $9c 156 PTAB $FB $D7 251 215 WRITE $BF 191 
EDIT $FS $8E 248 142 LEN $9D 157 PUT $AD 173 XOR $F3 243 
ELSE $8E 142  LET $9E 158 RANDOMIZE $F8 $A6 248 166 + (plus) $EC 236 
END $F8 $8F 248 143 LINE $9F 159 READ $AE 174 - (moins) $ED 237 
EOF $8F 143  LINETO $FB $FO 251 240 REM $AF 175 * (astérisque) $EE 238 
EQV $F4 244 LIST $F8 $99 248 153 RENUM $F8 $A7 248 167 ! $EF 239 
ERASE $F8 $90 248 144  LLIST $F8 $JA 248 154 RESET $FS $BC 248 188 * (puissance) $FO 240 
ERASEARC $FB$DA 251 218  LOAD $FS $9B 248 155 RESTORE $FS $AS 248 168 \ $F7 247 
ERASEOVAL $FB $E4 251 228 LOC $A! 161 RESUME $F8 $A9 248 169 (apostrophe) $Es 232 
ERASERECT $FB $E9 251 233 LOF $A2 162 RETURN $Bo 176 > $E9 233 
ERASEROUNDRECT  $FB $DF 251 223 LOG $A3 163 RIGHTS $B1 177 - $EA 234 
ERL $F8 $91 248 145  LPOS $FS $9C 248 156 RND $B2 178 « $EB 235 
ERR $F8 $93 248 147  LPRINT $FS $9D 248 157 RSET $B3 179 

ERROR $F8 $92 248 146  LSET $A4 164 RUN $FS$AA 248 170 
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Gestion de masques améliorée 


Pom's déclare que si, au cours d’une 
année, un seul des programmes pré- 
sentés répond aux besoins du lec- 
teur, il justifie à lui seul l'abonnement 
à la revue. Dans le Pom's 7, Gérard 
Michel nous a proposé un pro- 
gramme pour créer et modifier rapi- 
dement, à partir de masques, des 
écrans texte. Pour ceux qui, comme 
moi, accordent une importance pri- 
mordiale à l'ergonomie des program- 
mes, cet utilitaire tombe dans la caté- 
gorie des programmes qui, à eux 
seuls, … 


Pour tout programme dont on fait 
une utilisation intensive, il arrive vite 
un moment où l’on éprouve les limi- 
tes du logiciel et où l’on souhaite les 
dépasser. Savoir ce qu'il faut modi- 
fier est une chose, le réaliser en est 
une autre. Aussi est-ce Jacques Tran- 
Van qui, par sa parfaite maîtrise de 
l'assembleur, a pu effectuer les modi- 
fications aboutissant à ce GESMASK 
MODIFIE que nous vous proposons. 


Mode d’utilisation 


Pour l'utiliser, il faut mettre sur la 
même disquette les programmes 
GESMASK MODIFIE, INPUT, 
HCT.OBJ, MOVESCREEN, GES- 
MASK 1, GESMASK 2 et BLOAD- 
TEXT$9200, ce dernier programme 
permettant de supprimer le bruit des 
drives au chargement des écrans. 


L'ensemble fonctionne parfaitement 
bien avec PLE (voir Pom's 1) si vous 
prenez soin, durant la phase de 
conception de votre programme, de 
positionner HIMEM à 35840. Exem- 
ple : 

96 REM Dans votre version défini- 
tive, HIMEM: 37376 

97  HIMEM 35840: PRINT 
CHR$(4) "BLOAD BLOAD- 
TEXT$9200” 

98 POKE 782,136 : CALL 768 

99 REM Remettre M$=9200 dans la 
version définitive 


100 D$=CHRS(4) : M$=",A$8C00" 


De cette façon, si au cours du dérou- 
lement de votre programme vous 
avez à nouveau besoin du dernier 
masque BLOADé, il sera inutile de 
demander à votre programme de le 
recharger: il suffira d'un simple 
CALL 768 pour le rappeler à l'écran. 


Nouvelles commandes 


Les commandes de GESMASK MO- 
DIFIE ci-dessous s'obtiennent en 
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£ 


2] 


Jacques Tran-Van 
Maurice Schapiro 


*des des caractdres condens(s - marge pour l’imprimante 


RH HHKHON NN EH HE HE DE DE DE HE DE DE DE DE DE DE DE DE DE DE DEN DE D DE HE DE DE DE DE DE DE DE DE DE DE DE HE DE DE DE DE HE DE DE JE 
x MASK POMS 7 : 
% 
*% am{liort par TRAN-VAN jacques * 
Li et SCHAPIRO maurice x 
% le 15/12/83 * 
% * 
DHHER HE HE DE HE HE HE HE DE DE DE HE DE HE DIE DE DE DE DE DE DE HE DE DD DE DE DE DE DE DE DE DE DE DE DEN DE DE DE DE IE DE DE ED IE IE IE NE 
ORG $920û 3Primitivement $927C 

STOPFLG = $é sDrapeau d’arr*t du curseur 
CARTYPE = #7 3Drapeau INVERSE/NORMAL/FLASH 
DEB = $8 Position de dtpart du d{callage 
SAVCA = $9 5Tampon de caractdre 
SAVFLAG = $? 3Drapeau > O0 range, sinon (change 
SENSFLG = 5Drapeau > 0 insire, < 0 efface 
CUSAU = #19 sSauvegarde de la position vert. 
PTR = $FE sPointeur de d{placement 
CH = $24 sPosition hor. curseur 
Cv = $25 ; s vert. Si 
BASL = $28 Adresse Î1d3re colonne 

SH = +29 
BUFFER = +8000 3Tampon d’{cran -#400 . + 
BASCALC = $FBCI ;Calcul de l’adresse de ligne à 
BS = $FC10 Envoi d’une <- ; 
VTAB = $FC22 5D{place curseur en CV k 
HOME = $FCS58 , ; 
CLREOL = $FC9C ;Efface fin de ligne(A,Y d{t.) 
RDKEY = $FDOC sEntr£e de caractijre 
COUT = $FDED 3Sortie d’un caractire 


* Entr£e principale du programme avec effacement 
* de 1’{cran 


INIT JSR HOME 


* Autre entr£e du programme sans effacement de 1’{cran 
* (pour modification) 


ÉREITUEZ 


LDA #0 | : 
STA  STOPFLG sinitialise le drapeau 
STA  CARTYPE 
DEBUT LDA CV 
CMP #24 5Dernidre ligne ? 


5Retour 13re col/i3re ligne 


TESTPOS LDA CH . 
CMP  #$28 3Dernidre col. de la ligne ? 
BNE  GETCMD 


* Passe 9 la ligne suivante 
NEXTLIN INC CU 


LDA #0 ;Passer 9 Îd3re col. ligne suivante 
STA CH 
BEQ DEBUT 


* Lecture de la commande . 
* Autre entre du programme(pour consultation) 


GETCMD JSR VTAB ;3Positionne le curseur 
JSR RDKEY sEntr£e caractdre 
CMP #"°" 
BNE RETURN 
LDA  #$DB 3Crochet fermant 
RETURN CMP  #$8D sReturn ? 
BEQ NEXTLIN JA la ligne ! 
* Sortie du programme 
EXITPGM CMP #$80 3 CTRL-SHIFT-P? 
BNE  NOMOVE 
* Immobilisation du curseur 
NOMOVE CMP  #$93 3CTRL-S ? 
BNE DOWN 
STA  STOPFLG 1j < 0 
BEQ GETCMD 


* Curseur une ligne plus bas 


ARATEr 


APRES 





mode CTRL : on maintient la touche 
CTRL enfoncée, tout en appuyant 
sur la lettre de la commande. 


[ : inverse 

F : flash 

: normal 

: monter 

: descendre 

: décalage à droite 

: décalage à gauche 

: répétition verticale 

: insertion dans la ligne 

: sort du mode insertion 

: insertion d’une ligne vide 

: Suppression d'une ligne 

: sauvegarde du masque dans un 
buffer 

X : rappel du masque placé dans le 
buffer 

E: efface un caractère à partir du 
curseur 

K : efface la ligne à partir du curseur 
S: empêche le curseur de bouger 
après la frappe d'un caractère. On 
sort de ce mode avec les flèches gau- 
che et droite 


La touche RETURN renvoie le cur- 
seur au début de la ligne suivante. 
SHIFT-M engendre un crochet ou- 
vrant, et SHIFT-N un crochet fer- 
mant. 


DTON<<LOUNEZ 


Sauvegarde du masque 


CTRL-SHIFT-P pose la question du 
nom à donner au masque. Quatre 
réponses sont possibles : 


e RETURN : le masque est enregis- 
tré sur la disquette sous le nom 
que l’on a donné dans le menu 
principal; 

® un nom: ce nom est alors attribué 
au masque sauvegardé sur la dis- 
quette. On peut ainsi mémoriser 
des variantes du masque appelé 
dans le menu principal: 

e # (dièse): annule le masque en 
cours et revient au menu principal 
(le masque n'est alors pas sauve- 
gardé); 

e ?: affiche le catalogue de la dis- 
quette puis repose la question. 


À titre de démonstration, vous trou- 
verez le petit programme en Basic 
FRANCE, qui apprendra à vos en- 
fants à situer les départements sur la 
carte de France. Pour fonctionner, il 
requiert le masque CARTE. L'utilisa- 
tion de ce programme est simple et 
ne nécessite aucun commentaire. 





Routine INPUT 


*7000.9089 


9000- À9 80 Àé 07 9D 11 03 CA 
9008- 10 FA À2 00 86 06 20 OC 
9010- FD C9 8D FO 72 E4 07 90 
9018- OÀ C9 88 FO 28 20 DD FB 
9020- 4C 0E 90 C9 9B DO 09 EQ 
9028- 00 DO 05 À9 09 85 06 60 


000 
ac 


CELLES 


NNNNVNODO ROAD OR AUUIUUOUNCAONCUES BB 5 BR 1h. .B 8 0 0) 0) 00 (2 0 UD UD UD UND RD NTI MDN AO ND RON 1e 1 Det et et pts rt Pt nt nt D DD DOO0O0OOO!1Ÿ 


DB UN © 0 NO UT BW N = © 0 D NO UT. GR) + © 0 D NO UT CN) © 9 CD NON OR LI ND + © 0 C9 NON OR CON) + © 9 CO NON UN (ND + © 000 NO UT B UN OS O0 ONE US UN = © 0 00 NO UTBGN= O 0 D VRUIBGINE O0 


GOOGOO 0:00 "0 "0 0 "0 "0 00 0000 (0 D DOME NNNNN 


DOWN CMP  #$9A 3CTRL-2 ? 
BNE  FLECHDR 
INC CV Ligne suivante 
BNE  DEBUT 
* Avance le curseur d’un caractire 
FLECHDR CMP  #$95 3°)’ ? 
BNE  BACK 
LSR STOPFLG sâvance normale du curseur 


INC 3Caractàre suivant 
EXFLECH BPL TESTPOS 


* Recule le curseur d’un caractire 


BACK CMP  4$88 37<—* ? 
BNE UP 
JSR BS sRecul du curseur 
LSR STOPFLG jAvance normale du curseur 
BPL  GETCMD 
* Curseur une ligne plus haut 
UP CMP  #$97 > CTRL-W ? 
BNE INVERSE 
DEC CV sLigne précedente 
BPL  GETCMD 3Si CV)>=0 on positionne en CV 
LDA #23 ;On saute 9 la dernidre ligne 


CV 
BNE  GETCMD 


* Ecriture en inverse 


INVERSE CMP  ##89 3CTRL-I ? 
BNE FLASH 
LD #1 

MODE STA CARTYPE 3F1ag INVERSE 
JMP  GETCMD 


* Ecriture en flash 


FLASH CMP  H#$8é ; F 
BEQ MODE ;Flag < 0 FLASH 


* Ecriture en normal 


NORMAL DE EC 3 CTRL-N ? 
LDA #0 3Flag NORMAL 
BEQ MODE 
* Duplication du caractère une ligne plus bas 
DUPLIC CMP H#$96 ;CTRL-U ? 
BNE EOL 
LDA CV 
STA  STOPFLG jÂvance normale du curseur 
CMP #23 3Dernidre ligne =} on ignore 
RELAI BCS GETCMD ; 
ne RSCRLS 3Calcul adresse base ligne CV 
LDA  (BASL),Y Charge le car. sous le curseur 
INC CU 3Ligne suivante 
JSR  OUTPUT sAffiche le caractère 


D CH sRecul du curseur 
NOINC BPL  EXFLECH sRetour en TESTPOS 


* Effacement de la fin de la ligne 


EOL CMP  #$9B 3; CTRL-K ? 
BNE RIGHT | , 
JSR CLREOL 3Efface la fin de la ligne 
BCS RELAI 5Retour en GETCMD 


* D{placement de la fin de 1’{cran d’un caractère 
* vers la droite 


RIGHT CMP #$84 3CTRL-D ? 
BNE LEFT 
LDA CU + | 
PHA Les 5Sauve la position verticale 
STA  SAVCAR ÿ , 
LDY CH sPosition horizontale 
DROITE STY DEB 
JSR VTAB : . 
JSR LIGNEDR 3D{calle la ligne 98 droite 
LDY #0 : . 
INC CV sLigne suivante 
LDA CV | 
CMP #24 5Dernidre ligne 
BCC DROITE | 3 
PLA sR£cupdre la position verticale 
STA CV 
BCS RELAI 3JMP GETCMD 


* Dtplacement de 1a fin de 1’{cran d’un caractdre 
* vers la gauche 


LEFT CMP  #$87 3CTRL-G ? 
BNE INSERER 
LDÉ #" * 
STA  SAVCAR 
LDA CV 
STA CV 
LD8 #23 
STA 

GAUCHE LDY CH 
LDA CV 
CMP  CUSAV 
BEQ LAST 


Pom's n° 14 


PO RO 9 RO RON NI RJ RON RO RAIN) 
[NT TT ed 


O0 NO OI GO N + O 000 NO 


221 


308 


C2 (4) (2 Li) GO) 09 CU UD 
Lreteteeneqesr 
QUBUN OS "0 


LAST 


EXLEFT LDA 
STA 
EXGAUCH  JMP 


EXLEFT 
#0 

VTAB 

LI GNEGA 
CV 


GAUCHE 
CUSAU 


CU 
GETCMD 


3D£calle la ligne 2 gauche 


* Insertion d’un caractre dans une ligne 


INSERER HE 
LOOPINS JSR 
CMP 


NOLAST 


#$99 
DELET 
RDKEY 
#$ 


STOPFLG 
LOOPINS 


LIGNEDR 


OUT 
LOOPINS 


;CTRL-Y 


3CTRL-C ? 


30n n'avance pas si dernier car. 


3D{calle la ligne vers la droite 


;sBoucle 


* Effacement d’un caractdre de la ligne 
* et dtcallage de la fin vers la gauche 


DELETE 


* Echange de 
* sauv{ dans 


#$65 
ECHANGE 
SAVCAR 
CH 

LI GNEGA 
BAK 


1’{cran actuel 


le tampon 


;CTRL-E ? 


et de celui 


ECHANGE CMP  ##98 ;CTRL-X ? 

BNE  RANGE 

STA  SAUVFLAG ;5Flag < 0 
DOIT LDX 3 
NEXTLG TXA 

JSR BASCALC 

LDA BASL 

STA FPTR 

CLC 

LD SH 

ADC #>BUFFER 

STA PTR+1 

LOY #39 
LOOPCHG LDA (CBASL),Y 

BIT FLAG 

BPL  NOTCHANG 

PHA 

LDA  CPTR),Y 

STA  (BASL},Y 

PLA 
NOTCHANG STA  (PTR),Y 

DEY 

BPL  LOOPCHG 

DEX 

BPL NEXTLG 

BMI  BAK 
* Sauvegarde l’{cran actuel dans un tampon 
RANGER CMP ##$92 3CTRL-R ? 

BNE  LININSRT 

LSR SAVFLAG , 

BPL  DOIT 3Se branche toujours 
* Insertion d’une ligne blanche et dtcallage 
* de la fin de 1’{cran d’une ligne vers le bas 
LININSRT CMP #$8F 3 CTRL-O ? 

BNE LINEKILL 

LDX #22 

STX  SENSFLG 35129 > 0 => vers le bas 
DPL DES MOVELINE 5D{place la ligne 

DEX 

BMI  BLANKLIN 

CPX. CU 

BCS DPL 
BLANKLIN JSR  BLANK 3Efface la ligne 

EMI  BAK 
* Effacement d’une ligne et dtcallage de la fin 
* de l’{cran d’une ligne vers le haut 
LINEKILL CMP #$90 3CTRL-P ? 

BNE  DSPCAR 

STA  SENSFLG 3Flag < 0 => vers le haut 

LDX CV 
NXTPRO INX 

CPX #24 

BNE  KILLNXT 

LDA 23 

JSR BLANKI jEfface la dernidre ligne 

BMI  BLANKLIN 3Toujours 
KILENXT SA: MOVELINE sD{place la ligne 


TT 
[e] 
3, 
n 
5 
ef 
FR 


9030- C9 AC DO 05 A9 AE 4C 7D 
9038- 90 C9 AE F0 40 C9 88 DO 
9040- OÀ E0 00 F0 06 CA Cé 24 
9048- 4C 0E 90 C9 95 DO OC A5 
9050- 25 20 C1 FB A4 24 B1 28 
7058- 4C 7D 90 C9 AO 90 AF C9 
9060- DB B0O AB A4 08 CO 01 FO 
9068- OC C9 AF B0O 04 C9 AD DO 
9070- 9D C? BA BO 99 E0O 00 DO 
9078- 04 C9 A2 FO 91 20 ED FD 
9080- 9D 11 03 E8 4C 0E 90 8é 
9088- 09 40 





Routine MOVESCREEN 


*2DC.2FD 


92DC- À9 00 85 FC 

02E0- 85 FE À8 AD FE 02 85 FF 
02E8- AD FF 02 85 FD 42 04 Bi 
O0O2F0- FE 91 FC C8 DO F9 Eé FD 
02F8- Eé FF CA DO F2 60 





Routine HCT.OBJ 


*9465.949é 


9465- A9 00 85 
9468- 25 A0 00 20 Ci FB B1 28 
9470- C9 40 BO OD C9 20 
9478- 18 69 CO 4C 81 94 18 69 
9480- 80 20 ED FD C8 CO 28 DG 
9488- ES A9 8D 20 ED FD Eé 25 
9490- AS 25 C9 





Routine BLOADTEXT 
$9200 


*300.31D 


0300- A2 17 8A 20 Ci FB ÀS 28 
0308- 85 FE 18 AS 29 69 8E 85 
0310- FF A0 27 Bi FE 91 28 88 
0318- 10 F9 CA 10 ES 60 





Récapitulation MASK 


*x9200.941E 

9200- 20 58 FC À9 00 85 06 85 
9208- 07 ÀS 25 C9 18 DO 06 A9 
9210- 00 85 25 FO OE ÀS 24 C9 
9218- 28 DO 08 Eé 25 À9 00 85 
9220- 24 FO Eé 20 22 FC 20 OC 
9228- FD C9 DE DO 02 À9 DB C9 
9230- 8D F0 E8 C9 80 DO 01 60 
9238- C9 93 DO 04 85 06 F0 E3 
9240- C9 9À DO 04 Eé 25 DO C1 
9248- C9 95 DO 0é 46 0é Eé 24 
9250- 10 C3 C9 88 DO 07 20 10 
9258- FC 46 0é 10 Cé C9 $7 DO 
9260- Of Cé 25 10 BE A9 17 85 
9268- 25 DO B8 C9 89 DO 07 A9 
9270- 01 85 07 4C 23 92 C9 86 
9278- F0 F7 C9 8E DO 04 A9 00 
9280- FO EF C9 96 DO 18 ÀS 25 
9288- 85 0é C9 17 B0O 95 20 Ci 
9290- FB À4 24 B1 28 Eé 25 20 
9298- À4 93 Cé 24 10 B2 C9 8B 
92A0- DO 05 20 9C FC BO ES C9 
92ÂA8- 84 DO 20 À5 25 48 A9 A0 





317 BPL  NXTPRO Toujours 92B0- 85 09 A4 24 84 08 20 22 
31 | 92B8- FC 20 BC 93 A0 00 Eé 25 
17 * Affichage du caractdre 92C0- AS 25 C9 18 90 EE 68 85 
320 92C8- 25 B0 Ci C9 87 DO 29 A9 
321 DSPCAR  JSR OUT 92D0- A0 85 09 À5 25 85 19 A9 
ee 2P0- 19 À £a 90 06 À 00 29 
a PE RS DU ASE D 
326 * CARTYPE=I =} inverse CARTYPE=0 =} normal 92F8- C9 99 DO 22 20 OC FD C9 
327 # CARTYPE < O0 => flash 9300- 83 F0 F2 A4 24 84 08 CO 
328 9308- 27 90 09 85 06 20 9C 93 
329 BEQ  OUTPUT ;Normal 9310- 46 06 10 E8 48 20 BC 93 
330 BMI  CLIGNO 9318- 68 20 9C 93 10 DE C9 85 
331 #$3F yInverse 9320- DO 0B A9 A0 85 09 A4 24 
332 : 9328- 20 Dé 93 90 6C C9 98 DO 
333 * Affichage du caractdre et avance curseur 9330- 2B 85 09 À2 17 8A 20 C 
334 9338- FB AS 28 85 FE 18 A5 29 
335 OUTPUT  PHA Sauve le caractdre 9340- 49 80 85 FF A0 27 Bi 28 
336 LDA CV 9348- 24 09 10 06 48 B1 FE 91 
337 JSR BASCALC 9350- 28 68 91 FE 88 10 EF 
&e 338 LDY CH 9358- 10 DB 30 3D C9 92 DO 04 
= 339 PLA sRtcupdre le caractdre 9360- 46 09 10 CF C9 8F DO 14 
Ë 340 STA (BASL),Y 9368- A2 16 86 09 20 F1 93 CA 
341 BIT STOPFLO 9370- CA 30 04 E4 25 B0O F5 20 
= 342 BMI RETOUR 9378- 12 94 30 1D C9 90 DO 1é 
ra 343 INC CH 9380- 85 09 âé 25 ES E0 18 DO 
4 344 RETOUR RTS 9388- 07 A9 17 20 14 94 30 E7 
3e 345 9390- 20 Fi 93 E8 10 EE 20 9 
346 CLIGNO AND #$3F 3En flash 9398- 93 4C 15 92 Àé 07 FO 04 
347 ORA #$40 9340- 30 14 29 3F 48 A5 25 20 
348 BNE  OUTPUT 9348- Ci FB A4 24 68 91 28 24 
349 ; - 93B0- 06 30 02 Eé 24 60 29 3F 
350 * D{callage de la ligne d’un caractdre vers la droite 93B8- 09 40 DO E8 A0 27 Bi 28 
E 351 93C0- 48 88 30 04 C4 08 BO Fé 
rs 260 28 90 FE 20 49 20 84 da 
354 PUSHDR LDA  (BASL),Y 3Sauve les caractdres sur la pile 9 8 Bi 28 48 C8 CO 28 90 Fe 
355 PHA 3287 A5 09 88 28 68 88 30 
356 DEY 93E8- 04 C4 08 B0O Fé 85 09 18 
357 EMI 93F0- 60 8A 20 Ci FB A0 27 Bi 
358 CPY DEB 93F8- 28 48 88 10 FA 24 09 10 
359 BCS  PUSHDR 9400- 03 CA 10 O1 E8 20 Ci 
A Pac FE 5 48 24 20 E1 68 4 
362 PULLDR STA (BASL),Y  jDtcalle vers la droite 2418- A6 51 25 88 10 ES 60 
363 PLA 
364 INY 
365 CPY #40 
366 BCC PULLDR 
367 STA  SAVCAR 397 LDY #39 
365 pie 398 LOOP1 LDA  (BASL),Y 
La * Dcallage de la ligne d’un rang vers la gauche 4 He] 
272 Liaween S1Y ves de Sir SENtLe 
374 PUSHGA  LDA (BASL),Y 4: En “ROPT 
372 TNŸ 405 BPL  CONTMOU 
#40 406 INSRT IX 
377 CPY 407 CONTMOU A 
328 BCC  PUSHGA 408 JSR  BASCALC 
37? LDA  SAVCAR 409 LoodP2 INY 
Si DEY 410 PLA 
382 PULLGA  STA (BASL),Y FE fs, Mel 
383 PLA 413 BCC LOOP2 
384 DÉY 6 414 RTS 
22 Bu parut 12 
387 BCS PULLGA 21: * Effacement de la ligne 
388 STOPULL STA SAVCAR 418 BLANK LDA CV 
387 CLC 419 BLANK1  JSR BASCALC 
381 Pre 420 LDA #" " 
Y 
392 *x D{placement d’une ligne vers le haut 25 BKLOOP Se done 
272 * ou vers le bas 423 BPL BKLOOP 
395 MOVELINE TXA 3No de 1a ligne 433 Re 
396 JSR BASCALC 458 LST OFF 
GESMASK MODIFIE 80 REM 
90 REM ROUTINE D‘INPUT 
10 HIMEM: 32768: REM +8000 100 REM 
15 MOVE = 732:DP = 766:BT = 767 149 VTAB V: HTAB H: PRINT LEFTS$S (PO$,L 
20 D$ = CHR#& (4):D1$ = CHR$ (13) + D$: 0)" ":;: VUTAB V: HTAB H: IF ME = 
PRINT D$"BLOAD INPUT": PRINT D$" 2 OR X = 1 THEN PRINT ZY$(LL): I 
BLOAD MASK": PRINT D$"BLOAD HCT.Q F BX = 8 THEN 1648 - 
BJ": PRINT D1$*BLOAD MOVESCREEN" 150 VTAB V: POKE 8,TY: POKE 36,H - 1: P 
30 ONERR GOTO 9000 OKE 7,L0: CALL 36864 
40 GOTO 300 154 LC = PEEK (9):E = PEEK (é): IF E = 
70 VUTAB 22: HTAB ji: INVERSE : PRINT 2M$ 9 THEN RETURN 
3: NORMAL : INPUT * 7 ":2$: VTAB 156 22$ = “": PRINT SPC LO - LOC): IF L 
22: CALL - 868:2$ = LEFTS (2#,1 C = 0 THEN 168 
D: IF 2% = "O0" OR Z$ = "N" THEN 158 FOR 22 = 1 TO LC:2Z = PEEK (784 + 2Z 
RETURN Z) —- 128:227$ = 222$ + CHR$ (2): N 
71 GOTO 70 EXT 


50 





Pom's n° 14 










À LE JOURNAL "! 
DES AMATEURS 








HIT 
Dane ts 
= CR 



















sc 


“ 
le Ordinateurs ge. P0Che, 
® A [1] : 
n trésor gr; é ee ‘tiques : 








programmer 
#_ unordinateur est 
El devenu pour vous 
un loisir, un plaisir... 
une passion, sachez que LIST a été créé 
pour vous. LIST vous aide à tirer davantage 
de votre matériel, à vous perfectionner 
dans la conception des programmes 
qui “tourneront” sur votre machine. 
LIST vous initie aux langages informatiques 
et sélectionne les meilleurs livres pour 
progresser. LIST vous informe de l'actualité 
et vous fournit trucs, astuces et idées 
pour mieux programmer... 


: A | 5 *ABONNEM 
Pour être sûr de ne rater aucun numéro ie pe 
et pour recevoir LIST chez vous, (service abonnement) 
abonnez-vous ! 5, place du Colonel-Fabien, 


75491 Paris Cedex 10 ” 


Nom: 
Adresse :. 


L AISIR — 
LIST, LE P Code postal:| i 1 — : 
GRAM Veuillez m'abonner pour 10 numéros au prix 


sournaux avantageux de 160 F* au lieu de 200 F. Je fais ai 
tre ma une économie de 40 F sur le prix de vente au num: 

voir Je joins mon règlement indispensable libellé 
20 F chez à l’ordre de LIST. 


* Belgique : 1330 FB : Suisse: 50 FS : Canada: 30 $C: 
autres pays: 210 FF 














162 
163 


164 


165 


166 


167 
168 





169 
180 
190 


SERRES 


300 
310 


320 


40c 


405 


410 
420 


430 
440 


450 
460 


470 


480 
490 
500 


510 
520 


525 


530 


540 
550 


560 


570 


600 
602 


24 = 


IF TY < 3 THEN RETURN 

IF MID$ (Z2#,2,1) = "/" THEN 22$ = 
"0" + 22$ 

IF MID$ (22#,5,1) = 

LEFTS (22$,2) + 

22$,4) 

IF LEN (22$) < > 8 THEN 2$ = 
3): GOSUB 190: GOTO 149 
VAL € MIDS (22#,4,2)): IF VAL 

( LEFT$ (2Z$,2)) > 31 OR Z4 > 12 

OR 24 % VAL ( RIGHTS (2Z$,2)) « 

= 0 THEN Z$ = ME$(3): GOSUB 190 

: GOTO 149 

RETURN 

IF ME = 2 OR X = i THEN UTAB V: HT 
AB H:22$ = ZYS(LL): PRINT 22Z$ SPC 
(€ LO - LEN (2Z#)) 

RETURN 

REM 

UVTAB 21: 
SE : FOR Z = 
€ — 16336): 


LA 
0" + 


THEN 22$ = 
RIGHT$ « 


ME#<( 


HTAB 1: CALL - 868: INVER 
1 TO 150:21 = PEEK 
NEXT : PRINT Z2$;: NOR 
MAL : FOR Z = 1 TO 2500: NEXT : H 
TAB 1: CALL - 868: RETURN 

DATA 9,28,1,2,17,36,1,1 

FOR 1 = 1 TO 2: READ 2VZCI1),2ZHACI), 
ZLXCI),TYZC1): NEXT 


POSE: ion van t are sues.s' a ” 

TEXT : HOME : PRINT D1$"BLOAD GESMA 
SK1,D1": REM PREMIER MASQUE DU 
PROGRAMME 

UV = 14:H = 28:L0 = 1:TY = 2:X = O:ME 
= 0:BZ = 0 
E = 0: GOSUB 149: IF E = 9 THEN 410 
22 = VAL (22%): IF 2% < 1 OR ZX > 6 
THEN 410 
IF 2% = 6 THEN HOME : END 
VU = 17:H = 24:L0 = 9:TY = 1:LL = 1 

E = 0: GOSUB 149: IF E = 9 THEN 405 

ZY$C1) = Z22$:M$ = 22$:2M$ = "“ENREGIS 
TREMENT CONFIRME": GOSUB 70: IF 2 
$ = "N" THEN X = 1: GOTO 450 

HOME : PRINT D$"BLOAD GESMASK2*":X = 


O:ME = 0:B% = 0: REM DEUXIEME M 
ASQUE DU PROGRAMME 

71H = 29:TY = 2:L0 = 1:E = 0: GO 
SUB 149: IF E = 9 THEN 400 
ZY$(1) = 22$:D = VAL (22$): IF D < 

1 OR D > 2 THEN X = 1: GOTO 480 

IF ZX < > 4 THEN 560 
ME = 0:D% = 2:X = 0 

FOR LL = DX TO 3:L1 = LL — 1:U = ZU 
A2CL12:H = ZHZ(L1):LO = ZLACLID:TY 

= TYA(L1) 

0: GOSUB 149: IF E = 
2 THEN LL = 3: NEXT :X = 
480 

IFE = 

0 
ZYSCLL) = 2Z$ 
NEXT :S = UVAL (2Y#(2)):E$ = 2Y#$(3) 
: IF S < 1 OR S > 5 OR (E$ € > " 
0" AND E$ < > “N") THEN DZ = 3:X 
= 1: GOTO 520 

GOSUB 70: IF 2$ = "N" THEN X = 1: G 
OTO 480 

0: HOME : PRINT D1$"BLOAD'M#" ,D" 
D: ON 2% GOTO 600,610,620,630,650 
IF Z = O THEN 9010 
CALL 37376: REM 

N DE MASQUES 


U = 


7 AND LL = 
1: GCOTO 


E = 


9 THEN LL = 1: GOTO 55 


2 = 


ROUTINE DE GESTIO 


EE Le 
ASE 


52 


603 POKE DP,4: POKE BT,136: CALL MOVE: 
REM DEPLACEMENT DE $400 EN $8800 

604 HOME : VTAB 10 

605 INPUT “SOUS QUEL NOM LE SAUVER : ‘; 
NUS: IF NUS = *?" THEN PRINT D1$ 
"CATALOG": GET WW$: PRINT GOTO 
605 

606 IF NUS = "#® THEN 400 

607 IF NUS < > *" THEN M$ = NW$ 

608 POKE DP,136: POKE BT,4: CALL MOVE 

609 POKE 34,24: PRINT D$"BSAVE"M$" ,A102 
4,L1024": GOTO 400 

610 CALL 37379: GOTO 603: REM ON SAUTE 
LE "HOME" DE LA ROUTINE 

620 POKE 36,0: POKE 37,23: CALL 37411: 


GOTO 400: REM ONSAUTEDIRECTEMENTA 
U*JSR UTAB"DELAROUTINE 

630 PRINT D#$"PR#"S: IF E$ = "O" THEN P 
RINT CHR$ (9) "80N" 

640 CALL 37989: PRINT Di$"PR#0": GOTO 4 


00: REM ROUTINE DE HARD-COPY TEX 
T 

650 ZM$ = “ANNULATION CONFIRMEE": GOSUB 
70: IF 2% = “N° THEN 400 

660 PRINT D1$#"DELETE"M#: GOTO 400 

9000 Z = PEEK (222): IF Z = 6 AND 24 = 


1 THEN 600 
IF 2% = 1 THEN Z$ = "CE MASQUE EXI 
STE DEJA": GOSUB 190: GOTO 400 
9020 Z$ = "CE MASQUE N’EXISTE PAS": GOSU 
B 190: GOTO 400 


KR KX HE HN M DEN DE NE DE JE DE DE € JE DE JE EE NE JE HE HE NE DE DE DE JE NE NE EE DE EE 6 


9010 


* x 
* GESTION DE MASQUES * 
x x 
a ——— x 
* # 
*% { — CREATION 2 — MODIFICATION * 
+ # 
*% 3 —- CONSULTATION 4 — IMPRESSION * 
x % 
* S —- ANNULATION 6 — FIN * 
# x 
Ê x 
* VOTRE CHOIX : % 
x # 
x * 
x NOM DU MASQUE : ..,....... * 
* * 
# # 


EDEN HE DE HE DE DE JE EE JE DE DE JE DEN ME JE DE DE DE NE NE DE NE NE EEE DE DE DE EE EE 
EX HX HN NE NE DE JE JE NE DEEE DE DE ME JE JE EX JE NE DE DE EE 6 JE 6 JE EE EE EE 


x # 
*% GESTION DE MASQUES - PARAMETRES *% 
# # 
—— # 
# x 
*% NUMERO DU DRIVE (1/2) x 
# & 
* SLOT DE L’IMPRIMANTE : *% 
% # 
En x 
# # 
* VOTRE INTERFACE-IMPRIMANTE FAIT * 
% x 
x ELLE UN AFFICHAGE À L'ECRAN AU # 
* # 
% MOMENT DE L'’IMPRESSION CO/N) x 
# # 
RRXXKXLKHHMERMEREENREERELLLLLREXÉERNIRXE 
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Visicalc est vraiment formidable ! 
Pour la gestion . financière ou 
commerciale bien sûr, mais égale- 
ment pour bien d’autres choses : Oli- 
vier Herz vous a présenté un calen- 
drier perpétuel dans le numéro 10 de 
Pom's; aujourd’hui, je vous propose 
de calculer les heures de lever et 
coucher du soleil. 


Pour utiliser ce tableau, il suffit de le 
charger à partir de la disquette 
Pom's; si vous ne la recevez pas, 
vous trouverez ci-dessous la liste du 
tableau obtenue avec le programme 
LISTE de la disquette d'accompa- 
gnement ‘Visicalc sur Apple” (Edi- 
tions du PSI). 


La feuille affiche deux fenêtres : sur 
la première, vous entrez le jour et le 


Lêéve-toi et brille ! 


Quelques tests sont inclus pour véri- 
fier la saisie; le message ”’Error” s'af- 
fiche en cas d’incohérence. Dans cer- 
tains cas extrêmes (en particulier en 
Sibérie), il est possible que le soleil 
se lève avant 0 heure ou se couche 
après minuit; la grille affichera alors 
un astérisque à la suite de l'heure lo- 
cale. 


Attention : l’aplatissement des pôles 


À B 


Alexandre Avrane 


et la réfraction atmosphérique ne 
sont pas pris en compte et peuvent 
conduire à des erreurs de l'ordre de 
5 minutes. Enfin, cette grille ne 
tourne pas sur certains simili-Visicalc, 
en particulier Magicalc qui n'accepte 
pas les formules trigonométriques, ou 
Multiplan qui ignore Arcosinus; il fau- 
drait revoir la grille et utiliser les dé- 
veloppements limités : un lecteur re- 
lèvera-t-il le défi ? C 


[w D 


mois, la latitude et longitude du point HEURES DE LEVER & COUCHER DU SOLEIL 
considéré (format degrés.minutes, MURAT SATA NÉEN MAR ER MS SNS See 





positif pour le nord et l’ouest, négatif 3SCOPYRIGHT A. AVRANE ET POM’S - 1984 
pour le sud et l'est) ainsi que le dé- d=========2===2=57=2z=====2=========2===2= 
calage horaire officiel par rapport au 5 
méridien de Greenwich. SJOUR ------------ > 14 
Ps tableau utilise par défaut les _. AMOIS ------ >» 7 

onnées géographiques de Paris; les " ” + 2 
coordonnées de quelques grandes 8SLATITUDE (DD.MM)-> 48.52 N=+ 5- 
villes en France et ailleurs se trouvent SLONGITUDE(DD.MM)-> 2.23 W=+ E-=- 
sur la droite du tableau; vous pouvez 10DECALAGE HORAIRE-»> 2.00 
bien entendu en ajouter d’autres en 44 
consultant un atlas. N'oubliez pas B C D 
d'indiquer le décalage horaire (+1 
en hiver et +2 en été pour la 16 
France); vous pourrez trouver celui 17RESULTATS (HEURES LOCALES HH.MM) 
de n'importe quel pays sur un indica- 18===-=-=-=-==-=-22z=2=2==2=2=2=-==---==2=222== 
teur d’Air France. 19 
La deuxième fenêtre affiche les résul- 2OLEVER ----------- > 6.03 
tats en heures locales sous le format HÉCOUCHER == > 21.44 
heures.minutes, ainsi que la durée 22DUREE DU JOUR ---> 15.35 


totale du jour. 


—————————— 
FICHIER VISICALC 


/X!/X>A16:>B19:;: 
/GC9 
/X1/X>A1:>C6::/GFG 
>BS: /TH 
/X>A1:>B1:/TV 
/GC9 

/GFL 

/XH12 

/GRÂ 

/GCK 

/Wi 

>A1:"HEURES DE 
>B1:'" LEVER & 
>C1:'"COUCHER D 
>D1:"U SOLEIL 
>E1:"! 


>E2: "2 
>A3: "COPYRIGHT 
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= SOLEZTI. 


>B3:" A. AVRAN 
>C3:"E ET PON'’ 
>D3:"S - 1984 
>ES3:"1! 
DAd!:'"====2222=-= 


>C6:/FL14 
>D6:/FxGIF(@OR(C6<1,C6>31),@ERROR, 0) 
>F6: "PARIS 
>G6: "MARSEILLE 
>H6:" LILLE 
>16:"BREST 
>J6:"STRASBOUR 
>K6:"G OSLO 
>L6:"ATHENES 
>M6: "SINGAPOUR 
>N6:" LE CAP 





>06 : “MELBOURNE 
>P6:'"" NEW YORK 
>G6:" ANCHORAG 
>R6E:"E LIMA 
>S6:"TAHITI 
>A7:'"MOIS ---- 

>C7:/FL7 

>D7:/F#G1F(GOR(C7<1,C7>12) ,GERROR,0) 

>48:/FL'"LATITUDE 

>B8:'"(DD.MM)D-»> 

>C8:/F$S48.52 

>D8:"  N=+ S=- 

>F8:48.52 

>G8:43.26 

>H8:50.34 

>14:48,.27 

>J8:48.32 

>K8:59S.54 

>L8:37.54 

>M8:1.21 
son >N8:-33.58 
vu >08:-37.44 
>P8:40.46 


>Q8:61.11 
>R8:-12.02 
>58:-17.33 
>A9:"LONGITUDE 
>B93:"(DD.MM)-> 
>C3:/FS-2.23 
>DS:" W=+ E=- 
>F9:-2.23 
>G9:-5.13 
>H9:-3.05 
>19:4.25 
>J93:-7.38 
>K93:-10.38 
>LS:-23.44 
>M9:-103.54 
>NS:-18.36 
>09:-144.54 
>P9:73.53 
>Q93:149.59 
>RS:77.07 
>59:149.37 
>410:"DECALAGE 
>B10:'"HORAIRE-?> 
>C10:/FS2 


+ >D10:/F#@GIF (GOR(C8<-90,C8>90,C93<-90,C9>90,C10<-12,C10>12),@ERROR,0) 


>A12:/F#+(C8-@GINT(C8))/.6 
>B12:/F#+(C9-@INT(CS))/.6 

>C12:/F#+@INT(C8)+A12 

_  DD1Z:/F#+@INT(CS)+B12 

 >E12:/F*@P1/180 
>A13:/F+.988%(C6+(30.3#(C7-1))) 
>B13:/F#+23.5#@CO0S((A13+10)#E12) 


2C13:/Fr+r(.123#QCOS((A13+87)#E12)-((1/6) *GSIN(2»*(A13+10)#E12)) 
>D13:/F#x+(180/@PI)#*@ACOS(@TAN(B13S#E12) #*@TAN(Ci2#*E12)) 


>A14:/Fx+12+C10-C13+((1/15)#(D12-D13)) 


>B14:/F#@IF(A14<0,24+A14,A14 


>2C14:/F#+12+C10-C13+((1/15)#x(D12+D13)) 


>D14:/F*xGIF(C14>24,C14-24,C14 
>A15:/F#+C14-A14 
>A17:""RESULTATS 

>B17:" (HEURES 

>C17:'"LOCALES H 

>D17:'"H.MM) 


>C20:/FS+@GINT(B14)+((6/10) x (B14-@GINT(B14))) 


>D20:/F#@IF(A14<0,@EXP(9S),0 
>E20:"VEILLE 
>A21:'COUCHER - 


>C21:/FS+@GINT(D14)+(C(68/10)#(D14-GINT(D14))) 


>D21:/F#@IF(C14>24,@EXP(99),0 
>E21:'"LENDEMAIN 
>A22:'"DUREE DU 
>B22:'"JOUR ---> 


>C22:/FS+GINT(A15)+((6/10)#(A1S-GINT(A15))) 


BRÉANEUMNESLHPRBENSERTE 
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Suite au courrier des lecteurs (Pom’s 
11-12) demandant la manière d’aug- 
menter le nombre de fichiers disponi- 
bles sur une disquette, voici un petit 
programme de 9 secteurs qui répond 
au problème. 


Une disquette DOS 3.3 ne peut sto- 
cker plus de 105 programmes ou fi- 
chiers dans son catalogue (manuel 
du DOS, page 123). Pour forcer la 
main à la routine de formatage, il 
suffit de lui faire ingurgiter quelques 
POKESs et le tour est joué. Une fois 
’traitée” par le programme, une dlis- 
quette voit sa capacité en nombre de 
fichiers passer de 105 à 217. 
Comme il ne peut y avoir de créa- 
tion spontanée d'espace disque, le 
nombre de secteurs disponibles pour 


les données passe, quant à lui, de 
496 à 480. 


La VTOC conserve sa place habi- 
tuelle sur la piste $11, secteur $00. 
Le directory, pour sa part, s'étend 
non seulement sur les 15 autres sec- 
teurs de la piste $11, mais également 
sur l’ensemble de la piste $10 (tou- 


217 fichiers par disquette 


secteurs). À raison de 7 noms de fi- 
chiers par secteur de catalogue, on 


peut donc en conserver 31x7 soit 
217. 


Il n’est pas nécessaire d’initialiser une 
disquette vierge; une disquette en 
cours d'utilisation peut être modifiée, 
pourvu qu'elle n’exploite pas encore 
la piste 410 (c'est normalement une 
des dernières pistes allouées par le 
DOS). La carte d'occupation (VTOC) 
est automatiquement mise à jour par 
le programme ci-joint. 


Ce programme nécessite un Apple II 
(n'importe quelle cuvée) et le DOS 
3.3 chargé. Vérifiez bien que ce der- 
nier possède une commande INIT 
valide (pas de DOS modifié par un 
des nombreux patches récupérant la 
place mémoire d’INIT). En cas de 
doute... Apple vous a fourni une dis- 
quette MASTER, utilisez-la ! 


Fonctionnement 
du programme 


Ligne 80 : routine RWTS ‘’pokée” à 


Marcel Cottini 


Ligne 90 : adresse du tampon utilisé 

par RWTS. 

Ligne 100 : met le volume à zéro. 

Ligne 190 à 210: fixe la variable 

PK$ selon le type du programme de 

boot (Applesoft, binaire ou Exec). 

Ligne 230 à 240: initialisation de la 

disquette. 

Ligne 270 : contrôle si la piste $10 
(16) est déjà occupée, en consultant 

= VTOC actuelle (piste $11, secteur 
0). 

Ligne 290: fixe le pointeur vers la 

piste $10. 

Ligne 300: pointeur des prochains 

secteurs. 

Ligne 320 à 350 : lecture/écriture des 

pistes/secteurs par RWTS. 


La disquette peut être globalement 
copiée par n'importe quel pro- 
gramme comme COPYA. Les fichiers 
peuvent également être copiés indivi- 
duellement, mais pas par tous les 
programmes : FID fonctionne correc- 
tement, en revanche Super Disk 
Copy dévoile des lacunes. 





jours dans l’ordre décroissant des l'adresse 768. L: 
10 REM =====2=22222=z=2=22222 20: GOTO 220 

20 REM 2-PISTES CATALOG 220 VTAB 8: CALL - 958: HTAB 2: FLASH : PRINT 
30 REM PAR MARCEL COTTINI “INITIALISATION*: NORMAL : PRINT : PRINT 


40 REM COPYRIGHT 84 


“PROGRAMME DE BOOT: 
TYPE.....: 


“;NO$S: PRINT “FICHIER 
";PKS$S: PRINT "NUMERO DE VOLUN 





70 GOSUB 120 E.: “;VOL 
80 POKE 768,32: POKE 769,227: POKE 770,3: POKE 230 PRINT CHRS (4)"*INIT"NOS",V"VOL 
771,76: POKE 772,217: POKE 773,3: REM SA 240 PRINT CHRS& (4)"DELETE'"NOS 
UT À LA ROUTINE RWTS 250 GOSUB 80 
30 LOC = 10000: POKE 47088,LOC - INT (LOC / 256 260 VTAB 8: CALL - 958: PRINT ‘“<RETURN> POUR D 
? * 256: POKE 47089, INT (LOC / 256): REM IRECTORY 217 FICHIERS <Q> QUITTER: “;: 
ADRESSAGE MEMOIRE GET AS: PRINT AS: IF AS < > CHRS (13) 
100 POKE 47083,0: POKE 47091,0: REM MET LE VOLU THEN END 
ME 4 © 270 TR = 17:SE = O:RW = 1: GOSUB 320: IF PEEK « 
110 RETURN LO + 120) = 255 AND PEEK (LO + 121) = 25 
120 TEXT : HOME : INVERSE : PRINT “ 2 PISTES CA S THEN POKE LO + 120,0: POKE LO + 121,0: 
TALOG “: NORMAL : PRINT : PRINT “UTILISE RW = 2: GOSUB 320: GOTO 290: REM FiXE LA 


AUSSI LA PISTE 16 COMME CATALOG": PRINT * 
(IL FAUT QU'ELLE SOIT LIBRE.)*: PRINT 


VTOC 


280 INVERSE : PRINT : PRINT CHRS (7);" LA PIST 


130 FOR X = 1 TO 40: PRINT ‘“““;: NEXT X: PRINT E 16 EST DEJA UTILISEE !!‘*: NORMAL : PRIN 
140 VTAB 8: INPUT “VOULEZ-VOUS INITIALISER LE D T : PRINT ‘“(RECOMMENCER AVEC UN AUTRE DIS 
ISK ? REPONDEZ PAR ‘OUI’ OÙ ’N’: *:; K.)": END 
INS: IF INS = "N" THEN GOTO 250 290 TR = 17:SE = 1:RW = 1: GOSUB 320: POKE LO + 


150 IF INS < > “N“ AND INS < > “OUl* THEN 120 1,16: POKE LO + 2,15:RW = 2: GOSUB 320: R 


160 VTAB 8: CALL - 958: INPUT “NOM DU PROGRAMN EM POINTEUR DE LA PISTE 16 
E DE BOOT: “;NO$: IF NOS < “A AND NOS > 300 TR = 16: FOR SE = 15 TO 1 STEP - 1:RW = 1: 
"Z" THEN 160 GOSUB 320: POKE LO + 1,16: POKE LO + 2,5SE 
170 VTAB 8: CALL - 958: INPUT “NUMERO VOLUME D - 1:RW = 2: GOSUB 320: NEXT : REM POINTE 
U DISK: “;VOS:VOL = VAL (VOS): IF VOL < UR DU PROCHAIN SECTEUR 


1 OR VOL > 254 THEN 170 310 PRINT : PRINT “LE DIRECTORY PEUT CONTENIR 2 
180 VTAB 8: CALL - 958: INPUT “<A>PPLESOFT 17 FICHIERS.‘": END 
<B>INAIRE OU 320 POKE 47084,TR: POKE 47085,SE: POKE 47092,RW 


<T>EXTE ----> ‘:P : GOSUB 330: CALL 768: RETURN : REM LECTU 


KS$S: IF PKS < > ‘A AND PKS$ < > “B" AND RE ECRITURE SECTEUR 

PKS < > “T" THEN 180 330 IF RW = 1 THEN VTAB 8: CALL - 958: PRINT 
190 IF PKS = “A THEN PK$ = ‘“APPLESOFT‘“: POKE 4 “ LECTURE: ‘; 

0514,6: GOTO 220 340 IF RW = 2 THEN VTAB 8: CALL - 958: PRINT 
200 IF PKS = “B'" THEN PKS = “BINAIRE"“: POKE 405 "ECRITURE: *; 


14,52: GOTO 220 
210 IF PKS$ = “T*“ THEN PKS 


350 PRINT “PISTE-";TR;", 


1 TO 100: NEXT : 


SECTEUR-";SE: FOR X = 


"TEXTE": POKE 40514 


RETURN 
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Conversion minuscules/MAJUSCULES 


Alexandre Avrane 


B/.*/52 ! 


Oh, excusez-moi, je ne savais que 
vous n’aviez pas d'affichage en mi- 
nuscules | 


Programmeurs sur Apple //e et /{c, 
ayez un peu de pitié pour les posses- 
seurs d'un ‘’viell” Apple (1 an et 
demi !) sans la ROM LC qui permet 
les minuscules à l'écran. Non qu'ils 
soient excusables de ne pas se pro- 
curer cet accessoire bon marché et si 
pratique, mais n'oubliez pas qu’un 
bon programme doit avoir la correc- 
tion de regarder où il est et ne pas 
dire Bonjour” comme ci-dessus. 


Deux PEEKS permettent de savoir 

sur quel type de machine on se 

trouve : 

e PEEK(64255) vaut 0 avec la ROM 
Autostart, 1 avec l'ancien moni- 


teur (Apple Il simple ne suppor- 
tant pas la ROM LC). 

e PEEK(64266) vaut 208 pour un 
Apple Il ou II+ avec la ROM Au- 
tostart, 240 pour un //e ou /{c. 


Dans le premier cas (208), il n'existe 
aucun moyen de savoir s’il est possi- 
ble d'afficher des minuscules : il faut 
poser la question, comme le fait 
Apple Writer IL Si la réponse est né- 
gative (pas de minuscules), cela 
n'oblige pas le programme à modifier 
toutes ses sorties vidéo, mais plutôt à 
utiliser une routine de conversion qui 
intercepte les caractères et les trans- 
forme en majuscules. 


C’est le but du programme SHIFT, 
qui convertit également les minuscu- 
les accentuées et lettres propres au 
français; ainsi, Ctri-X, qui fournit un 
’backslash” interprété comme un c 


cédille par la ROM LC, affiche un C 
assez surprenant. 


Le source (Big Mac) doit être assem- 
blé de préférence à l'adresse $300. 
La version pour le programme de 
BLOC-NOTES, publiée dans le 
Pom's 13, est logée en $9A00, c'est- 
à-dire dans un buffer du DOS inuti- 
lisé par le programme, donc avec 
une sécurité réduite. 


Dans la même optique, n'oubliez pas 
que les Apples ne possèdent pas tous 
de carte 80 colonnes; il est moins dé- 
sagréable de lire un message bien 
poli indiquant qu'il est impossible 
d'exécuter le programme sur la ma- 
chine en cours, que de voir son 
Apple devenir sourd et muet... 





1 #36 XXE DEN DE DE DE NE DE DE DE DE DE DE DE DE DE DE DE DE DE JE JE NE DE JE NE 40 TXA 
2 * # 41 PHA 
3 * SHIFT # 42 

4 * # 43 LDA 
SO OXHXHXAHHE RENE NE HE DE DE DEN EE DE DE NE DEEE EN 44 LDX 
6 45 LOOP CMP 
7 *% Copyright [C] 1984 À. Avrane 46 BEG 
8 47 DEX 
9 * Maj: 02/01/84 48 BPL 
10 * Crtt: 02/01/84 Big Mac 49 CMP 
11 50 BCC 
12 * Ce programme permet, aux Si SEC 
13 *x utilisateurs d’Apple I11+ sans 52 SsBC 
14 %x rom 1.c., de visualiser toutes 53 BNE 
15 * minuscules en majuscules. 54 CHANGE LDA 
1é * 11 se lance par un simple 55 EXIT STA 
17 *x BRUN. Reset reconnecte la 56 PLA 
18 * sortie vid(o normale. 57 TAX 
19 * La version assembl£e en 58 PLP 
20 #*# $9A00 se situe au sein des 59 LDA 
21 * buffers du Dos. Prudence donc. 60 JMP 
22 é6i TABLEÏi DFB 
23 CSUW = $36 62 DFB 
24 TRAP = +48 63 DFB 
25 DOSHOOK = $3EA 64 DFB 
26 COUTO = $FDFO 65 DFB 
27 66 DFB 
28 ORG +$300 67 DFB 
29 68 DFB 
30 LD£  #<HOOK 69 TABLE2 ASC 
31 STA CSW 70 ASC 
32 LDA  #>HOOK 71 ASC 
33 STA CSu+i 72 ASC 
34 LDA #0 73 ASC 
35 STA TRAP 74 ASC 
36 JMP  DOSHIOK 75 ASC 
37 76 ASC 
38 HOOK STA CHAR 77 CHAR DFB 
39 PHP 78 END 


Récapitulation SHIFT 


0300- A9 OF 85 36 A9 03 85 37 
0308- A9 00 85 48 


4C EA 03 8D 





0310- 44 03 08 8A 48 AD 4% 03 
0318- A2 07 DD 3A 03 F0 OC CA 
0320- 10 F8 C9 EO 90 08 38 E9 
0328- 20 DO 03 BD 42 03 8D 4 


sauve Îles registres 


#7 
TABLE1,X 
CHANGE 


LOOP 
#$EO 
EXIT 


#$20 
EXIT 
TABLE2,X 
CHAR 


CHAR 
COUTO 
$co ; 
$DC EN 
$EO0 

$FB ; 
$FC 3 
$FD . 
$FE ; 
$FF ; 
"A" 

“CC” 

"1"+$20 
*“E"+$20 
“U*+$20 
*E*+$20 
“"-"+#$20 
"1*+$20 

0 


0330- 03 68 AA 28 AD 44 03 4C 
0338- FO FD CG DC EO FB FC FD 
0340- FE FF Ci C3 Ai CS DS CS 
0348- AD A1 00 
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Qui n’a jamais souhaité retrouver la 
disquette sur laquelle est stocké tel fi- 
chier, ou l’adresse de chargement 
d'un programme assembleur ? CAT- 
GEN répond à ce souci et vous per- 
met en effet de : 


e stocker le catalogue d'un ensem- 
ble de disquettes dans un seul fichier: 
® trier ces informations selon diffé- 
rents critères, 

e éditer le résultat d’un tri à l'écran 
ou sur imprimante. 


CATGEN fonctionne sur Apple II+ 
ou //e, avec 1 ou 2 lecteurs de dis- 
quettes et supporte une imprimante. 
Il est écrit en Basic et utilise deux 
routines en assembleur : l'accès à la 
routine RWTS pour la lecture du ca- 
talogue et un programme de tri. 


Après avoir demandé la date et s'être 
assuré de sa validité, CATGEN pro- 
pose un menu de 8 rubriques : 


1 - INITIALISATIONS : permet de 
définir le nombre ce lecteurs (1 par 
défaut) et le type de l'imprimante (en 
fait EPSON ou autres). C'est là 
qu'est initialisé le fichier de données 
baptisé "CATALOGUE GENERAL”. 

2 - SAISIE de disquettes DOS 3.3: 
le programme demande s'il s'agit 
d'une mise à jour par la question 
"EST-CE UNE NOUVELLE DIS- 
QUETTE (O/N) ? ”, puis les caracté- 
ristiques de la disquette traitée : NU- 
AS FACE, LABEL, CLASSE des 
chiers. 


Le programme lit et analyse la piste 
17 ($11) de la disquette pour déter- 
miner les caractéristiques de chaque 
fichier, à savoir : le NOM, le TYPE, 
la TAILLE en secteurs, l'ADRESSE 
de CHARGEMENT et la LON- 
GUEUR des programmes binaires. 


Un dialogue permet de compléter les 
informations : CLASSE (numéro de 
1 à 16 dont la signification est définie 
par l’utilisateur), NOM d'un fichier lié 
(fichier de la même disquette associé 
au fichier en cours). 


3 - SAISIE de disquettes "SPECIA- 
LE’ : il s'agit de disquettes Type Pas- 
cal ou non ‘’cataloguables”. Les in- 
formations correspondant à chaque 
fichier sont saisies par dialogue au 
clavier. 


4 - COMPACTAGE du fichier CA- 
TALOGUE GENERAL : il doit être 
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effectué après une mise à jour. 


5 - TRI: un menu offre le choix 
entre 5 critères de tri: par Nom, par 
Numéro de Disquette, par Label, par 
Type, par Classe. Le résultat du tri 
peut être sauvegardé dans le fichier 
TRI. Pour chacun de ces critères, les 
fichiers sont classés par ordre alpha- 
bétique. 


6 - EDITION: après définition de 
l'organe de sortie (Ecran ou Impri- 
mante), un menu propose 5 formats 
d'édition. Le choix 5 est adapté à 
l’'Epson MX82. Une édition n’est faite 
qu'après un tri et suppose l'existence 
du fichier TRI. 


7 - MODE D'EMPLOI : une descrip- 
tion succincte des possibilités de 
CATGEN est affichée. 


8 - Enfin, le choix 8 permet de quit- 
ter CATGEN. 


À la fin de chaque session, il est pos- 
sible, soit de revenir au MENU), soit 
de reprendre la même session. 


CATGEN est constitué de 5 pro- 
grammes implantés sur une disquette 
placée dans l'unité 1 et appelée ‘dis- 
quette programme”. Le fichier de 
données CATALOGUE GENERAL 
est sur la même disquette. 


Pour une configuration à 2 lecteurs, 
la disquette analysée est dans l’unité 
2. 


Des messages permettent de s’'assu- 
rer à chaque opération que la dis- 
quette installée est la bonne. 

Sauf spécification explicite, les répon- 
ses à donner sous forme d’un seul 


caractère ne nécessitent pas le *RE- 
TURN. 


Quelques remarques sont nécessaires 
en ce qui concerne la phase de sai- 
sie : 

e Pour alléger le dialogue de valida- 
tion des informations, il faut ré- 
pondre ‘’O” à la question ”EST- 
ELLE GLOBALE (O/N) ?” pour la 
classe des fichiers. 

e Par contre, pour filtrer certains fi- 
chiers (ne pas les inclure dans le 
CATALOGUE GENERAL), il 
convient de répondre ”’N” à cette 
même question et d’utiliser ensuite 
la touche ESC lorsque la question 
"OK (O/N OÙ ‘ESC')?” est 
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posée. 

e Pour mettre à jour les informations 

concernant une disquette, il faut 

répondre ”’N'” à la question ”’EST- 

CE UNE NOUVELLE DIS- 

QUETTE (O/N) ?”. 

Le nom du fichier lié doit apparte- 

nir à la même disquette ou être 

absent. 

e Si on répond ‘RETURN’ au para- 
mètre CLASSE, la valeur prise est 
celle définie le cas échéant dans la 
phase de définition de la dis- 
quette, sinon il s'agit de celle du 
fichier précédemment traité. 


On peut enchaîner la SAISIE de plu- 
sieurs disquettes avant d'effectuer la 
mise à jour du fichier CATALOGUE 
GENERAL, et ce jusqu'à concur- 
rence de 100 fichiers. À la question 
"ENCORE (O/N) ?” il suffit de ré- 
pondre ”O”. Le nombre de fichiers 
saisis est affiché en ‘’%’ (TAUX). 
La signification du paramètre 
SSE peut être personnalisée. Il 
suffit de redéfinir 16 rubriques dans 
les instructions DATA en fin du pro- 
gramme  CATGEN.SAISIE (après 
DATA RUB - lignes 2980 à 3000). 


L'opération de COMPACTAGE se 
fait par recopie du fichier CATALO- 
GUE GENERAL sur la disquette pro- 
gramme. Ceci limite la taille du fi- 
chier de données à 500 articles 
environ. Par contre, le ti s’accom- 
mode d’un fichier non compacté. 


En cas de détection d'erreur, le pro- 
gramme concerné s'arrête après édi- 
tion du numéro de la ligne erronée, 
sauf dans CATGEN où le MENU est 
relancé. 


Quelques précisions techniques 


Le CATALOG est lu par appel à 
RWTS et analysé en Basic. L'appel à 
RWTS est implanté de 768 à 798. 
Le buffer lu est en $9400. 


La routine de tri (fichier SPEED 
SORT), empruntée à NIBBLE, est 
accolée en fin de CATGEN.TRI par 
modification du pointeur $AF-$B0. 
Le tri est effectué en mémoire, d'où 
la limitation à 1000 du nombre de fi- 
chiers gérés. 

Les mémoires 800 à 811 servent à la 
communication entre les divers pro- 
grammes (date, nombre de drives, 
type d'imprimante). LC] 
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100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 


280 


2930 
300 
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340 
350 


352 
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359 
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361 
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380 
385 
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REM ue 06 4 36 3 26 20 26 26 26 26 26 6 à 
REM * CATALOGUE.. # 
REM * GENERAL: MENU * 
REM # JUIN 1984 Le 
REM www je 2e 4 2 2 2 
ONERR GOTO 690 
DS = CHRS (4) 
FS = “CATALOGUE GENERAL" 
RDS DS + “READ ‘ 
WRS DS + "WRITE * 
OPS DS + “OPEN “ 
CLS DS + “CLOSE “ 
DLS DS + ‘“DELETE" 
REM use ve 2 2 0 
REM * MENU * 
REM 6 2 96 2 36 26 2 
TEXT : HOME 
HOME : INVERSE : PRINT "“DATE‘":: 
MAL : PRINT ‘“* ‘“;:DAS: 
HTAB 30: PRINT “CATGEN ‘“:: 
: PRINT “V2.1*;:: NORMAL 
FOR I = 1 TO 40: PRINT “=";:: 
REM LECTURE DE LA DATE 
IF PEEK (800) < > 255 THEN 350 
DAS = LLE L] 
FOR I = 1 TO 8:DAS = DAS + 
PEEK (800 + I)): NEXT I 
GOTO 400 
VTAB 10: 
:DAS 
JJS = “":MMS = "" 
FOR I = 1 TO LEN (DAS) 
JS = MIDS (DAS,I,1): IF JS = 
JS = “ " THEN 11 = I: 
JJS = JJS + JS 
NEXT I 
FOR I = 
MS = 


CLS LES 


NOR 


INVERSE 


NEXT I 


CHRS ( 


INPUT “DATE (JJ/MM/AA)D : * 


“y 
GOTO 357 


OR 


11 + 1 TO LEN (DAS) - I1 
MIDS (DAS,I,1): IF MS = "“/" 
MS = “ “ THEN 361 
MMS = MMS + MS 
NEXT I 
ANS = 
AA = 


OR 


RIGHTS (DAS,2) 

VAL CANS):MM = 

VAL (JJS) 

IF JJ < 1 OR JJ > 31 OR MM < 1 OR M 
M > 12 OR AA < 84 THEN PRINT CH 
R$ (7): GOTO 350 

IF LEN (JJS) = 1 THEN JJS = 
JJS 

IF LEN (MMS) = 
MMS 

DAS = JJS + “/" + MMS + “/" + 

FOR I = 1 TO 8: POKE 800 + I, 

NIDS (DAS,1,1)): NEXT I 

POKE 34,4: HOME : POKE 34,1 

POKE 810,1: POKE 811,1: REM PAR DE 
FAUT ’1 DRIVE’ 

POKE 800,255: REM DRAPEAU POUR L’'I 
NITIALISATION 

VTAB 1: HTAB 6: PRINT DAS 

POKE 34,2 

HOME : HTAB 17: 
E N U“: NORMAL : PRINT 

HTAB 4: INVERSE : PRINT “1“*;: 
L : PRINT “-INITIALISATIONS" 

PRINT 

HTAB 4: 


VAL CMMS):JJ = 


"O" + 


1 THEN MMS "0" + 


ANS 
ASC ( 


INVERSE : PRINT “M 


NORMA 


INVERSE : PRINT “2*;: 


NORMA 


ASE 
AT ie red Oh 2e 32 OP SEE 


58 


460 
470 


480 
490 


500 
510 


520 
530 


540 
550 


560 
570 


580 


5930 
600 
610 


620 
630 


640 
650 
660 


670 
680 
690 
700 
710 
720 


730 


740 


750 
760 


770 


780 


790 


800 
810 
820 
830 


L : PRINT “-DISQUETTE STANDARD DO 
S 3.3" 

PRINT 

HTAB 4: 
L : 

PRINT 

HTAB 4: INVERSE : PRINT ‘“4“;: NORMA 
L : PRINT ‘-COMPACTAGE DU FICHIER 

FS" 

PRINT 

HTAB 4: INVERSE : PRINT “S'";: 
L : PRINT “-TRI..." 

PRINT 

HTAB 4: INVERSE : PRINT 
L : PRINT ‘“-EDITION.." 

PRINT 

HTAB 4: 
L : 

PRINT 

HTAB 4: INVERSE : PRINT “8“;: 
L : PRINT “-FIN DE SESSION" 

VTAB 22: INVERSE ; PRINT “CHOISISSE 
Z VOTRE SESSION (1..8)";: NORMAL 
: PRINT “ “;: GET Z$: PRINT ZS$S:ME 

= VAL (28) 

IF ME < 1 OR ME > 8 THEN 580 

POKE 80S,ME 

ON ME GOSUB 700,910,910,1040,940,98 
0,1010,660 

Z = FRE (O) 

VTAB 23: CALL - 958: INVERSE : 
NT “RETOUR AU MENU (O/N)D?7";: 
AL : PRINT *“ “;: 

IF 2$ = "N" 

GOTO 420 

TEXT : HOME : PRINT CLS: VTAB 10: H 
TAB 14: PRINT “AU REVOIR...": VTA 
B 23 

END 

REM SI ’ERREUR’,RELANCE DU MENU 

PRINT DS: PRINT DS"PR£O“: GOTO 240 

REM * INITIALISATIONS" * 

HOME 

HTAB 12: INVERSE : 
ATIONS": NORMAL 

VTAB 5: PRINT "CONFIGURATION AVEC “ 
:: INVERSE : PRINT ‘“1'";: NORMAL 

PRINT ‘* OU “;: INVERSE : PRINT “ 
2'";:: NORMAL : PRINT “ DISQUES ? 
“:°: GET DKS$S: PRINT DKS 

DK = VAL CDKS): IF DK < 

< > 2 THEN 730 

POKE 810,DK 

VTAB 7: PRINT ‘“L’IMPRIMANTE EST-ELL 
E UNE EPSON(‘";:: INVERSE : PRINT “ 
O/N*“;: NORMAL : PRINT “)?*;: GET 
TYPLPS: PRINT TYPLPS 

IF TYPLPS < > “O" AND TYPELPS < > 
"N'" THEN 760 

POKE 811,80: IF TYPLPS = “N* 
POKE 811,1 

VTAB 9: PRINT 


INVERSE : PRINT 
PRINT ‘“-DISQUETTE 


“3"*;: NORMA 
? SPECIALE”" 


NORMA 
NORMA 


"6": ! 


INVERSE : PRINT “7";: 
PRINT ‘“-MODE D’EMPLOI.." 


NORMA 


NORMA 


PRI 
NORN 
GET 2$: PRINT 2$ 
THEN 660 


PRINT “INITIALIS 


> 1 AND DK 


THEN 


“CREATION DU FICHIER 
(*“:: INVERSE : PRINT “O/N'";: NORM 
AL : PRINT “ + INVERSE : PRIN 
T ‘“RETURN";: NORMAL : PRINT “) * 
;:: INPUT 2S 

IF 25 = "N'* THEN RETURN 

IF Z$ < > ‘“O* THEN 790 

REM NO%=NOMBRE MAXI D'ARTICLES 

REM LO%x=TAILLE DES ARTICLES 


. 
,. 
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840 
850 


860 


870 
880 
890 
300 
310 


320 
330 
340 
350 
360 
9370 
380 


390 CCS = 


1000 
1010 
1020 
1030 
1040 
1050 


1060 
1070 


1080 
1090 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 


1230 


1240 
1250 
1260 
1270 
1280 
1230 
1300 
1310 
1320 


1330 


NO% = 1:LO%* = 87 
VTAB 14: FLASH : PRINT "CREATION‘:: 
NORMAL : PRINT “ DU FICHIER ‘“:: 
INVERSE : PRINT F$: NORMAL 
PRINT OPSFS: PRINT DLSFS: PRINT OPs 
FS 
PRINT WRSFS;*",RO" 
PRINT NO%x: PRINT LO% 
PRINT CLS 
RETURN 
REM # DISQUETTE STANDARD 3.3 OÙ 
ECIALE’ *# 
CCS = “"CATGEN.SAISIE" 
GOTO 9360 
REM *# TRI #* 
CCS = "CATGEN.TRI" 
PRINT DS'"RUN "CCS 
RETURN 
REM # EDITION *# 
“CATGEN.EDIT" 
GOTO 360 
REM # MODE D'EMPLOI # 
CCS = “CATGEN.UTILISATION" 
GOTO 360 
REM *# COMPACTAGE DE FS * 
HOME : HTAB 14: INVERSE : 
OMPACTAGE": NORMAL 
VTAB 12 
FLASH : 


?SP 


PRINT "C 


PRINT “COMPACTAGE":: NORMA 
L : PRINT “ DU FICHIER “:: INVERS 
E : PRINT FS: NORMAL 
F1$ = "TRAVOO1" 
PRINT OPSFS 
PRINT RDSFS;",RO" 
INPUT NO%: INPUT LOx%x 
PRINT CLS: IF NO% = 
PRINT OPSFS;",L'";:LOx 
PRINT OPS$F15;",L";:LO% 
N1%x = © 
FOR I = 1 TO NO%x - 1 
PRINT RDSFS;",R‘"I 
INPUT STS 
IF MID$ (STS,5,1) = 
N1%x = N1%x + 1 
PRINT WRSF1S;'",R'"N1x% 
N1$ = STR$ (N1%X): FOR N = LEN (N1 
$S) TO 3:N1$ = “O" + N1$: NEXT N 
ST$ = CHRS (34) + N1S$ + " “ +  RIG 
HTS (STS,LOX - 7) 
PRINT STS 
NEXT I 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT DS"DELETE'"FS 
PRINT DS"RENAME"F1S","FS 
PRINT : PRINT “IL Y A *:: 
: PRINT N1%x;: NORMAL : 
ARTICLES ." 
RETURN 


1 THEN 1320 


“ 
n°" 


THEN 1250 


WRSF1$;:",RO" 

N1% + 1: PRINT LO% 
CLSF1s 

CLSFS 


INVERSE 
PRINT * 





100 
110 
120 
130 
135 
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REM #mmmunutme ee 2 5 0 2 5 5 2 
REM *# CATALOGUE.. # 
REM # GENERAL: EDIT # 


REM oem me 2 26 26 26 06 06 De 2 96 26 6 D 2 0 


HIMENM: 38400 


n° 14 


140 
150 
170 
180 
190 
200 
210 
220 
230 
240 
259 
260 
279 
280 
290 
300 
310 
330 
340 
350 
360 
370 
380 


3930 
400 
410 
420 
430 
440 


450 
460 
470 
480 


490 
500 


510 


520 
530 
540 
S50 
560 
570 
580 
590 
600 
610 
620 


630 
640 


650 
660 


670 
680 


6930 


ONERR GOTO 1330 

DIM ST%x(1000) 
ESS = CHRS (27) 

HTS = LLI “ 
TB$ = CHRS (9) 

DS CHRS (4) 
FS "CATALOGUE GENERAL" 
RDS D$& + “READ “ 
WRS DS + "WRITE "“ 

oPS D$ + “OPEN “ 
DS + “CLOSE “ 

D$ + “DELETE" 

“TRI ” 

LECTURE DE LA DATE 
FOR I = 1 TO 8 
DAS + CHRS ( PEEK (800 + I)) 


HOW ON OM OU NH 


470 

DECOMPACTAGE DE STS 

RIGHTS (STS, LEN (ST$S) - 5) 
MIDS (STS,1,5): REM NDS+FAS 
MIDS& (STS#,6,20): REM NAS 
MIDS (ST$,39,20): REM FICH. 


MIDS 
MIDS 
MIDS 
NIDS 
MIDS 
MIDS 


(STS,59,2): 
(STS,61,8): 
(STS,26,2): 
(STS,28,3): 
(STS,31,4): 
(STS,35,4): 


REM 
REM 
REM 
REM 
REM 
REM 


CLASSE 
DATE 
TYPE 

TAILLE 

ADRESSE 

LONGUEU 

MIDS (STS,69,12): REM LABEL 

RETURN 

REM EDITION 

HOME : HTAB 17: 

ITION": NORMAL 

POKE 34,4 

VTAB 5: PRINT “SUR ‘“;: 

INT “(CE)";: NORMAL : PRINT "CRAN 
OU “;: INVERSE : PRINT “(1)";: NO 
RMAL : PRINT "“MPRIMANTE ? ";:: GET 
Z$: PRINT 2$ 
IF 28 < > “E" 
500 


INVERSE : PRINT “ED 


INVERSE : PR 


AND 2$ < > “I” THEN 

"E" THEN TERM = © 

“I” THEN TERM = 1 

REM LIT LE FICHIER ’TRI’ 

PRINT OPSTRS: PRINT RDSTRS 

INPUT N1x%x 

FOR I = 1 TO N1x 

INPUT STx(I) 

NEXT I 

PRINT CLS 

PRINT 

INVERSE : PRINT “1“;: NORMAL : PRIN 
T ‘“-STANDARD :FIC,TYP,TAIL, AD 
R,LNG,NDK, LAB" 

PRINT 

INVERSE : PRINT ‘“2";: NORMAL : PRIN 
T “-PAR DISQUETTE:NDK,FIC,TYP,TAI 
L,ADR,LNG,LAB"* 

PRINT 

INVERSE : PRINT “3";: NORMAL : PRIN 
T "-PAR CLASSE :CLA,FIC,TYP,TAI 
L,ADR,LNG,NDK,LAB"* 

PRINT 

INVERSE : PRINT ‘“4“;: NORMAL : 
T ‘“-PAR TYPE 
R,LNG,NDK, LAB" 

PRINT 


PRIN 
:TYP,FIC,TAIL, AD 


ARR ADAERAN 
Het AR 


PHÉPPRIEEETE 


pe 
L-2 

rés 
Hs 
pen 
#4 


FH 
tel 


FPE 


ke 


SHERERS 
ARS PSS AE Be A 


59 


700 


INVERSE : PRINT “S“:: 


T “-COMPLET 


NORMAL : 
:NDK,FIC,TYP,TAI 
L,ADR,LNG,LIE,CLA,DATE“ 


PRIN 


710 VTAB 22: INVERSE : PRINT "CHOISISSE 
Z VOTRE FORMAT (1..5) ?“:2: NORMAL 
: PRINT * “;: GET Z$: PRINT Z2s 
720 22 = VAL (28): IF ZZ < 1 OR ZZ >5 
THEN 710 
730 IF 2Z = 5 AND PEEK (811) <« > 80 T 
HEN 710 
740 REM OUVRE Fs 
750 PRINT OPSFS 
L 760 PRINT RDSFS:",RO"“: INPUT NOx: INPUT 
4 LO% 
i 770 PRINT CLSFs 
À 780 PRINT OPSFS;:",L'";LOX 
É 784 VTAB 5: CALL - 958: VTAB 22: PRINT 
“<TAPER ’ESP’ POUR SUSPENDRE L’E 
aa DITION>"“: PRINT “<PUIS UNE 2EME F 
OIS POUR LA REPRENDRE>"*: 
786 POKE 35,21: VTAB 4: HOME : PRINT 
730 IF TERM = O THEN 850 
800 INPUT ‘“CADRER LE PAPIER ET TAPER ’R 
ETURN’ ? ";2s 
Ed 810 PRINT DS*“PR£1": IF ZZ < > 5 THEN 
PRINT ESS;"Q"*;: CHRS (80): CHRS (1 
8); 
820 IF 22 = 5 THEN POKE 1657,110: PRIN 
T ES$;"Q"; CHRS (110); CHRS (15); 
: PRINT ES$;"D"; CHRS (7): CHRS ( 
28); CHRS (34): CHRS (41): CHRS ( 
49); CHRS (55); CHRS (62): CHRS ( 
84); CHRS (89); CHRS (O): 
830 PRINT :NN = O 
840 GOSUB 1070: REM TITRE 
850 FOR I = 1 TO N1x 
870 NZ%x = STX(I) - 1: IF NZx = © THEN 96 
(e) 
880 LASTS = STSs 
890 PRINT RDSFS:",R":N2%x 
900 INPUT STS 
910 GOSUB 340: REM DECOMPACTAGE 
920 GOSUB 1200: REM EDITION 
921 PRINT DS 
922 KEY = PEEK ( - 16384): POKE - 1636 
8,0: IF KEY < 127 THEN 930 
924 IF KEY = 128 + 32 THEN GET 2: PRI 
NT 2s 
930 IF TERM = O THEN 960 
940 NN = NN + 1 
350 IF NN = 58 THEN FOR J = 1 TO 6: PR 
INT : NEXT J:NN = O: GOSUB 1070 
960 NEXT I 
970 IF TERM = O THEN PRINT Ds: GOTO 99 
0 
380 PRINT ESS$;"à": PRINT DS:'"PR£O" 
990 PRINT 
1000 POKE 35,23: VTAB 21: CALL - 958: 
VTAB 23 
1010 INVERSE : PRINT “RETOUR AU MENU (O 
/N) ?";: NORMAL : PRINT “ “:: GET 
2$: PRINT 25: 
1020 IF Z$ = “N'' THEN 470: REM ON REBO 
UCLE 
1030 CC& = "CATGEN"* 
1050 PRINT DS‘“RUN'"CCS 
1060 STOP 
1070 REM TITRE DE CHAQUE PAGE 
1080 PRINT "DATE: ‘“;:DAS:: HTAB 34: PRIN 
T “CATALOGUE GENERAL‘: PRINT 
ne 


60 


ON Z22Z GOTO 1100,1120,1140,1160,118 
[e) 

PRINT “ ‘“;"NOM DE FICHIER se 
> "TYPE";" TAIL. “;"ADR.";:HTS:"LNG 
.";HTS;"DISK.";HTS; "LABEL" 

FOR 11 = 1 TO 64: PRINT “-":: 

11: PRINT : RETURN 
PRINT HTS;"DISK.";HTS;:"NOM DE FICH 


NEXT 


TER “3"TYPE TAIL. “;:;"ADR.":H 
TS; "LNG,.*;" LABEL" 
FOR 11 = 1 TO 63: PRINT “-‘“;:: NEXT 
11: PRINT : RETURN 
PRINT ;"CLAS‘";HTS; "NOM DE FICHIER 


“3"TYPE";"*  TAIL.";"ADR.":HT 
$S;"LNG.";:HTS$S;"DISK.";:HTS; "LABEL" 
FOR 11 = 1 TO 68: PRINT ‘“-‘“;:: NEXT 

11: PRINT : RETURN 


PRINT “TYPE“;:HTS$S; "NOM DE FICHIER 
TAIL. ADR.";HTS;"LNG.":HTS:" 


DISK. “;"CLAS";"* LABEL“ 
FOR I1 = 1 TO 68: PRINT “-"“:: NEXT 
11: PRINT : RETURN 


PRINT “DISK.";TBS;"NOM DE FICHIER“ 
: TBS; "TYPE"; TBS; "TAILLE": TBS;:"ADR 
."; TBS;"LNG.";TBS; "FICHIER LIEN" 


; TBS; “CLAS"*; TBS; "DATE"; °* LABE 
FOR 11 = 1 TO 109: PRINT ‘“-"“;: NEX 
T 11: PRINT : RETURN 
REM EDITION 


ON 22 GOTO 1230,1250,1270,1290,131 
[e) 

GOTO 1410 

IF LEFTS (P2$8,1) < > MIDS (LAST 
$,6,1) THEN PRINT :I = I - 1: RE 
TURN 

PRINT HTS;P2S;HTS:P6S; HTS:P7S:HTS: 
P8S; HTS; PSS: HTS:P1S:HT$S:PAS: RETU. 
RN 

IF P18 < > MIDS (LASTS,1,5) THEN 

PRINT :I = I - 1: RETURN 

PRINT HTS;P1S; HTS;:P2S;:HTS;:P6S:HTS: 
P7S;: HTS;:P8S;:HT$S;:P9S$:HTS:PAS: RETU 
RN 

IF P4$ < > MIDS (LASTS#,59,2) THE 
N PRINT :I = I - 1: RETURN 

PRINT HTS;P48;:HTS;P2S;:HTS$S:P6S:HTS: 
P7S;HT$S;P8S;:HTS; PIS ;:HTS:P1S;:HTS:P 
AS: RETURN 

IF RIGHTS (P65,1) < > 
T$,27,1) THEN PRINT : 
RETURN 

PRINT HT$;:P6S; HTS; P2S:HTS:P7S:HTS: 
P8$S;HTS$S; PSS: HTS:P1S;HTS;: P4S:HTS:P 
AS: RETURN 

IF P18 < > MIDS (LAST$,1,5) THEN 

PRINT :I1 = I - 1: RETURN 

PRINT P1S;:TBS:P2S; TBS:P6S:TBS:P7S: 
TBS; P8S; TBS; P9$; TBS:P3S; TBS:P4S:T 
B$S; P5S:HTS; PAS: RETURN 


(LAS 


MID 
= 1 - 1: 


5: 


PRINT DS: PRINT “ERREUR ‘“; PEEK (2 
22);" LIGNE ‘“; PEEK (218) + PEEK 
(219) * 256: STOP 


100 REM nrnnannanannnnmsmsnm 


110 REM * CATALOGUE... * 
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120 


REM * GENERAL :UTILISATION* 


130 REM #2 6e 26 me 96 26 8 08 2 90 00 00e 0e 98 48 26 00 2 

140 OONERR GOTO 580 

150 D$ = CHRS (4) 

160 REM MODE D’EMPLOI 

170 HOME : HTAB 12 

180 OINVERSE : PRINT “CATGEN‘:: NORMAL : 

PRINT ‘ PERMET DE :* 

190 PRINT 

200 PRINT “ 1-“;: INVERSE : PRINT ‘“CREE 
R“;: NORMAL : PRINT *“ LE CATALOGU 
E D’UN ENSEMBLE DE DISQUETTES" 

210 PRINT “ 2-"*;:: INVERSE : PRINT "TRIE 
R'';: NORMAL : PRINT ‘“ LES ELEMENT 
S DE CE CATALOGUE" 

220 PRINT “ 3-“;: INVERSE : PRINT “EDIT 
ER";:: NORMAL : PRINT ‘ LES RESULT 
ÀÂTS DU TRI‘ 

230 PRINT ‘“ 4-‘*;:: INVERSE : PRINT "REAL 
ISER";: NORMAL : PRINT “ LA MISE 
À JOUR DE CES ‘“: PRINT “INFORMATI 
ONS"“ 

240 PRINT 

250 INVERSE : PRINT “CATGEN‘':: NORMAL : 

PRINT “ LIT LE CATALOGUE DES DIS 
QUETTES DITES ‘STANDARD’ (DOS 3, 
3) ET “ 
260 PRINT “PERMET LA SAISIE DES DONNEES 
CORRESPON-": PRINT ‘"DANTES POUR 
LES DISQUETTES ? SPECIALES” (NON 
DOS 3.3 OU PROTEGEES)" 
270 PRINT 
280 INVERSE : PRINT ‘“CATGEN'‘:: NORMAL : 
PRINT ‘“ TRAVAILLE SUR UN APPLE I 
1 48K , 1OU 2 LECTEURS , SUPPORTE 
UNE IMPRIMANTE": PRINT “ET PERME 
T DE GERER 1000 FICHIERS ENVIRON“ 
290 GOSUB 590 
300 PRINT ‘“ LES INFORMATIONS MEMORISEES 
DANS LE" 

310 PRINT “FICHIER ‘;: INVERSE : PRINT 
"CATALOGUE GENERAL':: NORMAL : PR 
INT “* SONT :" 

320 PRINT 

330 PRINT “ 1-LE ‘“;: INVERSE : PRINT “N 
UMERC";: NORMAL : PRINT “ DE LA D 
ISQUETTE: 4 CARAC-‘“": PRINT “TERES 

ET LE “;: INVERSE : PRINT "CODE" 
;:: NORMAL : PRINT “ DE LA FACE ’A 
LA OU *B° LLI 

340 PRINT “ 2-LE “;: INVERSE : PRINT “N 
OM“ ;: NORNAL : PRINT ‘“ DU FICHIER 
»LIMITE À 20 CARAC-“: PRINT ‘"TERE 
S" 

350 PRINT “ 3-LE “;: INVERSE : PRINT “T 
YPE'";: NORMAL : PRINT *“ DU FICHIE 
R: ’A°,’B°,’1’,°R°, ‘T° ET SON E 
TAT ‘LOCK’ OU ’UNLOCK’" 

360 PRINT “ 4-LA ‘“:: INVERSE : PRINT "T 
AILLE";: NORMAL : PRINT “ DU FICH 
IER EN SECTEURS" 

370 PRINT “ S-L’*;: INVERSE : PRINT "AD 
RESSE";: NORMAL : PRINT ‘“ DE CHAR 
GEMENT POUR LES PRO-GRAMMES BINAI 
RES" 

380 PRINT “ 6-LA ‘“;:: INVERSE : PRINT “"L 
ONGUEUR";: NORMAL : PRINT “ DES P 
ROGRAMMES BINAIRES" 

330 PRINT “ 7-LE “;: INVERSE : PRINT "N 
OM“;: NORMAL : PRINT “ D’UN FICHI 

Pom's n° 14 


400 


410 


420 


430 


440 


450 
469 


470 


480 


490 


500 


502 


504 


506 


510 
520 


3530 
540 
560 
570 
580 


5930 


ER “;: INVERSE : PRINT “LIE";: NO 
RMAL : PRINT “ :FICHIER DE LA ME 
ME DISQUETTE ASSOCIE AU FICHIER E 
N COURS“ 

PRINT “ 8-LA ‘“;: INVERSE : PRINT “C 
LASSE" ;: NORMAL : PRINT * DU PROG 
RAMME,CHOISIE DANS": PRINT “UNE L 
ISTE PERSONNALISABLE" 

PRINT “ S-LA ‘“;: INVERSE : PRINT “D 
ATE";: NORMAL : PRINT ‘“ DU JOUR" 
PRINT “10-LE ‘:: INVERSE : PRINT “L 
ABEL";: NORMAL : PRINT “ DE LA DI 

SQUETTE"“* 

GOSUB 590 

PRINT “ L’ENCHAINEMENT DES OPERATIO 
NS EST :" 

PRINT 

PRINT * INVERSE : PRINT “INIT 
IALISATIONS";: NORMAL : PRINT “: 
DU FICHIER ‘CATALOGUE GENERAL’ , 
DU NOMBRE DE LECTEURS , DU TYPE D 
IMPRIMANTE (CHOIX 1)" 

PRINT “* -*;: INVERSE : PRINT "SAIS 
IE";: NORMAL : PRINT * OU “;: INV 
ERSE : PRINT “MISE A JOUR“;:: NORM 
AL : PRINT “ DES FICHIERS“: PRINT 

“"CCHOIX 2 OÙ 3 SELON LA DISQUETT 
E)" 

PRINT “ -";: INVERSE : PRINT “DEFI 
NITION DES PARAMETRES DU TRI‘“:: N 
ORMAL : PRINT ‘“ ET TRI (CHOIX 5 
)5LE RESULTAT EST STOCKE “: PRINT 

“DANS LE FICHIER “;: INVERSE : P 
RINT "TRI": NORMAL 

PRINT * “3: INVERSE : PRINT “DEF 
INITION DU FORMAT D’EDITION‘":: NO 
RMAL : PRINT “ PUIS EDITION SUR L 
E ?’TERNINAL’ OÙ SUR L’IMPRIMANTE”’ 

(CHCIX 6)" 

PRINT “ -LE “;: INVERSE : PRINT “C 
OMPACTAGE";: NORMAL : PRINT * DU 
FICHIER (CHOIX 4)“: PRINT “EST A 
FAIRE APRES UNE OPERATION DE MISE 

A JOUR" 

INVERSE : PRINT “N.B:";: NORMAL : P 
RINT "S’IL Y A 2 DISQUES,LES DISQ 
UETTES A“: PRINT ‘“ANALYSER SERONT 

MISES DANS L’UNITE “;: INVERSE : 
PRINT 2: NORMAL 

PRINT "L’UNITE ‘;: INVERSE : PRINT 
1;: NORMAL : PRINT *“ SUPPORTANT ‘* 
;:: INVERSE : PRINT "CATGEN";: NOR 
MAL : PRINT ‘“ ET LES" 

PRINT “DONNEES:";: INVERSE : PRINT 
“CATALOGUE GENERAL‘";:: NORMAL : PR 
INT “ ET ‘“;: INVERSE : PRINT "TRI 
“: NORMAL 

VTAB 23 

INVERSE : PRINT “RETOUR AU MENU (O/ 
N) ?2";: NORMAL : PRINT * “;: GET 
2$: PRINT 25 

IF Z2$ = "N" THEN 

CCS = “"CATGEN“* 

PRINT DS'"RUN"CCS 

STOP 

PRINT DS: PRINT “ERREUR ‘“:; 
2);" LIGNE “; PEEK (218) + PEEK 
(219) # 256: STOP 

VTAB 23: INVERSE : PRINT ‘TAPER UNE 

TOUCHE POUR CONTINUER‘";: NORMAL 


“ss 
se 


END 


PEEK (22 





FERMER, 
61 


| 


600 


: PRINT “ “;: 
HOME 


GET Z2$: PRINT 25 


610 RETURN 


———————  ——— 


230 
240 


270 
280 
2930 


300 
310 


320 


339 


340 


350 


360 


370 
380 
390 


400 
410 
420 


430 
440 
450 
460 
470 
480 
490 


REM RRRRRRRARRRRRRRRERER 
REM #* CATALOGUE.. #* 
REX # GENERAL:TRI # 
REM ND D DE DE DE DE DE OF DE DE JE 99 JE 98 DE D 
HIMEM: 38400 
ONERR GOTO 910 
DIM STS(1000) 
DIM S%x(1000) 
BS = CHRS (7) 
DS = CHRS (4) 
FS = “CATALOGUE GENERAL" 
RDS = D$ + “READ 
WRS = DS + “WRITE 
OP$S = D$ + "OPEN “ 
CLS = D$ + “CLOSE “* 
DLS = D$ + "“DELETE" 
TR$ = “TRI 
REM TRI: 5: 
HOME : VTAB 3 
HTAB 12: INVERSE : PRINT “DEFINITIO 
N DU TRI‘: NORMAL : PRINT 
POKE 34,4 
PRINT : INVERSE : PRINT ‘“1‘*;: NORMA 
L : PRINT ‘“-PAR NOM DE FICHIER" 
PRINT : INVERSE : PRINT “2";:: NORMA 
L : PRINT ‘“-PAR NUMERO DE DISQUET 
TE" 
PRINT : INVERSE : PRINT ‘“3"*;: NORMA 
L : PRINT “-PAR LABEL DE DISQUETT 
E° 
PRINT : INVERSE : PRINT “43: NORMA 
L : PRINT ‘-PAR CLASSE DE PROGRAN 
ME* 
PRINT : INVERSE : PRINT “5'";:: NORMA 
L : PRINT “-PAR TYPE DE FICHIER" 
VTAB 22: INVERSE : PRINT “LEQUEL (1 
9) ?";35: NORMAL : PRINT “ “;: GE 
T 2$: PRINT Z$:TT = VAL (2$) 


IF TT < 1 OR TT > S THEN 360 
REM LECTURE DE F# DANS STS 
VTAB 18: FLASH : PRINT "LECTURE"; : 


NORMAL : PRINT “ DU FICHIER “;: I 
NVERSE : PRINT FS$: NORMAL 
REM OUVRE F$ 


PRINT OPSFS 
PRINT RDSFS;",RO": 
LO% 


INPUT NO%x: INPUT 


PRINT CL#FS 

PRINT OPSFS;",L°";:LO%x 
STS(O) = * dE 
N1%x = O 

FOR I = 1 TO NO%x - 1 


PRINT RDSFS;",R";1 
INPUT STS 


Programme SPEED SORT 


1000- 20 E3 DF 8D CO 03 8C C1 
1008- 03 20 BE DE 20 E3 DF 8D 
1010- CA 03 8C CB 03 A9 00 8D 





500 
510 
520 
S30 


540 
550 
S60 
570 


580 
530 


600 
610 


620 


630 
640 
650 


660 
670 
675 
680 


690 
700 


710 
720 
730 


740 
750 
760 
770 


780 


790 
800 
820 


830 
840 
850 
860 
870 


880 


8930 


300 
310 


1018- 
1020- 
1028- 
1030- 
1038- 
1040- 


IF MIDS (STS,5,1) 
N1% = N1%x + 1 
ON TT GOTO 530,550,570,590,610 
STS(N1%X) = MIDS (STS,11,20) + 
(STS,6,5) 

GOTO 620 
STS(N1%) = 
GOTO 620 
STS(N1%x) = MIDS 

(STS,11,20) 
GOTO 620 
STS(N1%x) = MIDS 
(STS,11,20) 
GOTO 620 
STS(N1%) = MIDS 
(ST$,11,20) 
HTAB 9: VTAB 20: 
RTICLE ‘“;I 
NEXT I 
PRINT CLSFS 
HOME : FLASH : VTAB 10: 
INT “ T R I “: NORMAL 
X = FRE (O) 
PRINT BS 
REM APPEL DE LA ROUTINE DE TRI 
POKE 964, (N1%x / 256 - INT (N1%x / 2 
56)) * 256 
POKE 965, INT (N1% / 256) 
CALL PEEK (175) + PEEK (176) # 
6 - 261STS$(0),S%x(0) 
PRINT BS$ 
VTAB 12 
PRINT “SAUVEGARDE DU RESULTAT DU TR 
I (O/N) ? “;: GET Z$: PRINT 25 
IF ZS = ‘“N"* THEN 870 
IF Z$ < > ‘“O"“ THEN 720 
PRINT 
FLASH : PRINT “ECRITURE‘“;: NORMAL : 
PRINT “ DANS LE FICHIER “;: INVE 
RSE : PRINT TRS: NORMAL 
TRS = "TRI": PRINT OPSTRS: PRINT DLS 
TRS: PRINT OPSTRS: PRINT WRSTRS 
PRINT N1% 
FOR I = 1 TO N1x% 
IF S%x(I) = © THEN N%x = LASTx=: 
840 
N%x = Sx(I):LAST*x = 
PRINT N%x + 1 
NEXT I 
PRINT CLS 
VTAB 23: INVERSE : PRINT ‘RETOUR AU 
MENU (O/N) ?";:: NORMAL : PRINT * 
“?: GET Z$: PRINT 2sS 
IF Z2$ = "N“* THEN 270: REM 
CLE 
PRINT 
STOP 
PRINT DS: PRINT “ERREUR ‘':; 
2);" LIGNE ‘:; 
(219) 


= “pt 


THEN 630 


MIDS 


MIDS (ST$,6,25) 


(STS,69,12) + MIDS 


(STS,64,2) + MIDS 


(STS,32,1) + MIDS 


PRINT DS: PRINT ‘A 


HTAB 16: PR 


25 


GOTO 


Nx 


REBOU 
DS"RUN CATGEN"* 


PEEK (22 
PEEK (218) + PEEK 
* 256: STOP 


C2 
85 
02 
88 
8D 
AD 


03 
FC 
A2 
DO 
C9 
CB 


8D 
AD 
oi 
F8 
03 
03 


C3 
co 
Bi 
A9 
AD 
85 


03 
03 
FB 
00 
CA 
FE 


AD 
85 
95 
8D 


03 
AD 


C1 
FB 
08 
C8 


85 
Ci 
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1048- 85 FA AD CO 03 85 F9 A0 
1050- 02 À2 01 Bi F9 95 06 CA 
1058- 88 DO F8 AD C4 03 8D Cé 
1060- 03 AD CS 03 8D C7 03 A0 
1068- 00 Bi Qé Di 08 DO 05 C8 
1070- CO 1E DO F5 FO 0 BO 08 
1078- EE C8 03 DO 03 EE C9 03 
1080- 18 ÀS F9 69 03 85 F9 A5 
1088- FA 69 00 85 FA A0 02 A2 
1090- 01 B1 F9 95 06 CA 88 DO 
1098- F8 18 BO 97 CE Cé 03 DO 
10AG- 03 CE C7 03 AD C7 03 10 


100 
110 
120 
130 
140 
150 
160 
170 


180 


190 
200 
210 
220 
230 


240 


250 
260 
270 


280 


290 


300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
405 
410 
420 
430 


440 
450 


460 


DD DENON DE D HE DE DE DE D JE D 2 98 28 

*# CATALOGUE.. # 

* PHASE: SAISIE # 

REM se 0 06 26 96 2e 00 98 3e 0e 28 38 94 3e 96 9 96 26 

REM BUFFER EN ‘9400 

HIMEM: 37888 

ONERR GOTO 2900 

DIM NAS(100),TPS(100),SE(100) ,CAS(1 
00) 

DIM PI(100),AS(100) ,LGS(100) ,TA(100 
>,NLS(100) 

REM NAS=NOM DES FICHIERS 

REM TPS=TYPE DES FICHIERS 

REM SE=AD. SECTEUR 

REM PI=NUM. DE PISTE 

REM AS=ADR.CHARGEMENT DES PROG. BIN 
AIRES 

REM LGS=LONGUEUR DES PROG. BINAIRES 


REM 
REM 
REM 


REM TA=TAILLE DES FICHIERS 
DIM ST$(100) 
GOSUB 2910: REM 
RWTS” 
DEF FN X(A) = (176 + A) *# (A - 9 « 
= O) + (183 + A) # (A - 9 > O) 
V20$ = " “: REM 
20 ESPACES 
CHRS (4) 
"CATALOGUE GENERAL" 
DS + “READ * 
DS + "WRITE 
DS + “OPEN * 
DS + "CLOSE “ 
DLS DS + “DELETE" 
REM LECTURE DE LA 
FOR I = 1 TO 8 
DAS = DAS + CHRS ( PEEK (800 + I)) 
NEXT I 
DK = PEEK (810) 
TT = PEEK (809) - 2: GOTO 1920 
REM BOUCLE DE CATALOG 
VTAB 4: HTAB 10: VTAB 11: FLASH : P 
RINT “LECTURE";: NORMAL : PRINT “ 
DU CATALOGUE" 
SE = 15 
AI = 768: POKE AI + 15,SE: POKE AI + 
14,17 
CALL AI 


S.P. DE LECTURE ’ 


Ds 
FS 
RDS 
WRS 
OPS 
CLS 


Hu 


HN NH 


DATE =>DAS 
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10A8- BE AD Cé 03 10 B9 0E C8 
10B0- 03 2E C9 03 18 A5 FD 6D 
10B8- C8 03 85 FD A5 FE 6D C9 
10C0- 03 85 FE A0 00 AD C3 03 
10C8- 91 FD C8 AD C2 03 91 FD 
10D0- EE C2 03 DO 03 EE C3 03 
10D8- AD CS 03 CD C3 03 DO 09 
10E0- AD C4 03 CD C2 03 BO 01 
10E8- 60 18 ÀS FB 69 03 85 FB 
10F0- ÀS FC 69 00 85 FC A0 02 
IGF8- À2 O1 Bi FB 95 08 CA 88 
1100- DO F8 38 B0O 95 


520 
530 


540 


550 


560 


570 
580 
590 


600 


610 
620 
630 
640 
650 


669 
670 
680 
6930 
700 
710 
720 
730 
740 
750 


760 
770 


780 
790 
800 
810 
820 


830 


ZT = 37902: REM ZT=’9400+14 
NAS = ®* 
FOR I = 1 TO 7 
J1 = ZT + 35 # (I - 1) 
FOR J = J1 TO J1 + 20: REM POUR 20 
CAR. MAX 
AC = PEEK (J) 
IF J - J1 = © AND AC = O THEN 750: 


REM TEST DE FIN DE CATALOGUE 
IF PEEK (J - 3) = 255 AND J - J1 = 


O THEN 720: REM TEST DE FICHIER 
* DELETED” 
IF AC = 34 OR AC = 128 + 34 THEN AC 
= 39: REM REMPLACE ‘ PAR ”’ 
NAS = NAS + CHR& (AC - 128 »* (AC > 
128)): REM CONSTITUTION DU NO 
MN DE FICHIER 
NEXT J 
NE = NF + 1 
PICNF) = PEEK (J1 - 3):5SE(NF) = PE 
EK (J1 - 2) 
IF LEN (NAS) > 20 THEN NAS = LEFT 
$ (NAS,20) 
NASÇ(NF) = NAS 
Al = PEEK (J1 - 1) 
TACNF) = PEEK (J1 + 30) 
NAS = "":TPS = " " 
IF A1 > = 128 THEN Al = A1 - 128:T 
PS = “#*; REM TEST DE FICHIER ’L 
OCKED” 
IF A1 = O THEN TPS = TPS + “T" 
IF A1 = 1 THEN TPS = TPS + "]" 
IF A1 = 2 THEN TPS = TPS + “A 
IF A1 = 4 THEN TPS = TPS + "B" 
IF A1 = 16 THEN TPS = TPS + “R" 
TPS(NEF) = TPS 

NEXT I 
SE = SE - 1: POKE AI + 15,SE 

GOTO 460 

REM CALCUL DE ADR ET LONG DES FICH 


IERS BINAIRES 
FOR I = 1 TO NF 
IF TPS(I) = * B" OR TPS(I) = "#B" T 
HEN GOSUB 820:A#(1) = ARS:LGS(1) 
= LGS$S: GOTO 790 
ASCI) = “...."2LGS(1) = *“....* 
REM CALCUL DE ADS ET LGS 
NEXT I 
RETURN 
POKE AI + 14,PI(I): POKE AI + 15,SE 
CI) 
ZT = 37888 





22 # 
RE _* 


63 





840 CALL AI 


850 POKE AI 


+ 15, PEEK (ZT + 13) 


860 CALL AI 


870 AA = PEEK (ZT + 1) 

880 A = INT (AA / 16):B = AA - A »# 16 

8930 AS = CHRS ( FN X(A)) + CHRS ( FN X 
(B)) 

900 AA = PEEK (ZT) 

910 À = INT (AA / 16):B = AA - A »* 16 

3920 ARS = AS + CHRS ( FN X(A)D) + CHRS 
( FN X(B)) 

930 AA = PEEK (ZT + 3) 

940 À = INT (AA / 16):B = AA - A »# 16 

950 AS = CHRS ( FN X(A)) + CHRS ( FN X 
{B)) 

360 AA = PEEK (ZT + 2) 

970 À = INT (AA / 16):B = AA - A »* 16 

380 LGS = AS + CHRS ( FN X(A)) + CHRS 
C FN X(B)) 

930 RETURN 

1000 REM AFFICHAGE 

1010 HOME 

1020 OINVERSE : PRINT “DISQUETTE : ‘“:: 
NORMAL : HTAB 16: PRINT LEFTS (N 
DS ,4); 

1030 HTAB 30: INVERSE : PRINT “FACE :': 
: NORMAL : HTAB 37: PRINT RIGHTS 

(NDS, 1) 

1040 INVERSE : PRINT ‘LABEL : “ss 
HTAB 16: NORMAL : PRINT LBS 

1050 OINVERSE : PRINT “NB. FICHIERS:":: 
NORMAL : HTAB 16: PRINT NF 

1060 GOSUB 1070: GOTO 1180 

1070 REM NOM DES RUBRIQUES 

1080 VTAB 15: RESTORE 

1090 READ 2$: IF 2$S < > "RUB" THEN 103 
O 

1100 FOR I = 1 TO 16 STEP 2 

1110 READ 2$: IF I < 10 THEN PRINT * * 

1120 PRINT 1;:*-":28: 

1130 HTAB 20 

1140 READ 28: IF I < 9 THEN PRINT “ ‘“:; 

1150 PRINT I + 1;"-";:28 

1160 NEXT I 

1170 RETURN 

1180 POKE 35,14 

1190 CV = 12 

1210 VTAB 6: CALL - 958 

1220 PRINT "FICHIER" 

1240 INVERSE 

1250 PRINT ‘NOM “3: PRINT “TYPE 

1260 PRINT “TAILLE “: PRINT “ADRESSE 

1270 PRINT “LONGUEUR “: PRINT ‘“FICH.LIE 

1280 PRINT ‘CLASSE s 

1230 NORMAL 

1292 FOR I = 1 TO NF 

1294 VTAB 6: HTAB CV: PRINT I 

12936 FOR J = 1 TO 7: VTAB 6 + J: HTAB C 
V: CALL - 868: NEXT J 

1300 VTAB 7: HTAB CV: IF TT = O©O THEN P 
RINT NA&(I): GOTO 1330 

1310 INPUT ““:NAS: IF LEN (NAS) = © TH 
EN VTAB 7: HTAB CV: GOTO 1310 

1320 FOR N = LEN (NAS) TO 19:NAS = NAS 

+ “ “: NEXT N:NAS(I) = NAS 
1330 VTAB 8: HTAB CV: IF TT = © THEN P 


ASS 
to re AREA EX MERE RS -OS ON SSP MERE EE 


64 


1340 


1350 


1360 
1370 


1380 
13930 


1400 
1410 


1420 
1430 


1440 


1450 
1460 


1470 


1480 


1490 
1500 
1510 
1520 
1530 
1540 
1550 


1560 


1570 
1580 


1590 


1600 
1610 


1630 
1640 


1650 
1655 


1660 
1670 
1680 
1690 
1700 
1710 
1720 
1730 


RINT TPS(I): GOTO 1360 
INPUT “";: TPS: IF LEN (TPS) = 1 TH 
EN TP$S(I) = " * + TPS 
TS = RIGHTS (TPS,1): IF TS < > “A 
* AND TS < > “B"® AND TS < > “l" 
AND TS < > ‘“R" AND TS < > “T" 
THEN 1330 
VTAB 9: HTAB CV: IF TT = © THEN P 
RINT TA(ID: GOTO 1400 
INPUT ““;:TAS: IF VAL (TAS) = O TH 
EN 1360 
TACI)D = VAL (TAS$) 
IF TT = 1 AND TS < > “B" THEN AS( 
1) = "....":LGS(I) = “...."3: GOTO 
1460 
VTAB 10: HTAB CV: IF TT = © THEN 
PRINT AS(I): GOTO 1430 
INPUT “"“:AS(I): IF LEN (AS(I)D) = 


O THEN A&(I) = “,...." 

IF LEN (A#$(I)) < 4 THEN 1400 

VTAB 11: HTAB CV: IF TT = O THEN 
PRINT LGS(I): GOTO 1460 

INPUT “";:LGS(I): IF LEN (LGS(CI)) 
= © THEN LGS(I) = “...." 

IF LEN (LGS(I)) < 4 THEN 1430 

IF CGS = “O" THEN NLS(I) = V20$:CA 


SCI) = GHS: VTAB 13: HTAB CV: PRI 
NT GHS: GOTO 1630 
VTAB 12: HTAB CV: PRINT V208;: VTA 
B 12: HTAB CV: INPUT “"“;NS:NLS = 
NS: FOR N = LEN (NS) TO 19:NLS = 
NLS + ‘“ “: NEXT N 
IF LEN (NS) = O THEN NLS = V208: 
GOTO 1540 
REM TEST EXISTENCE DE FIC. LIE 
FOR J = 1 TO NF 
IF NLS = NAS(J) THEN 1540 
NEXT J 
GOTO 1470 
NLS(I) = NLS | 
VTAB 13: HTAB CV: PRINT * “:2 H 
TAB CV: INPUT “"“;CAS 


IF LEN (CAS) = © AND LEN (GHS) < 
> O THEN VTAB 13: HTAB CV:CAS 
= GH$: PRINT CAS: GOTO 1600 
IF LEN (CAS) < > © THEN 1600 
IF LEN (CAS) = O AND I = 1 THEN 1 
550 


IF LEN (CAS) = O AND I > 1 THEN C 


AS = CAS(I - 1): VTAB 13: HTAB CV 
: PRINT CAS 
CL = VAL (CAS): IF CL < 1 OR CL > 
16 THEN 1550 
CAS(I) = STRS (CL): IF CL < 9 THEN 
CASCI) = "O" + CAS(I) 
IF CGS$ = "“O"* THEN 1660 
VTAB 23: INVERSE : PRINT “OK (CO/N 
OU ’ESC’)7";: NORMAL : HTAB 18: P 
RINT “ “;: GET 28 
IF Z$ = “N'" THEN 1470 
IF Z2$ = CHRS$S (27) THEN NAS(I) = " 
NEXT I 
POKE 34,2: POKE 35,24 
RETURN 
REM CONSTITUTION DE L'ARTICLE 
REM NOS (4) =NUMERO D’ARTICLE 
REM NDS (4) =NUMERO DE DISQUETTE 
REM FAS(1)=FACE A/B 
REM NAS(20>=NOM DU FICHIER 


Pom's n° 14 


1740 REM TPS(2)=TYPE DU FICHIER 
1750 REM TAS(3)=TAILLE EN SECTEURS 
1760 REM AD#(4)=ADRESSE DE CHARGEMENT 
1770 REM LG$S(4)=LONGUEUR 
1780 REM NLS(20)=FICHIER LIE 
17390 REM CAS(2)=CLASSE DU PROG. 
1800 REM DAS(8)=DATE 
1810 REM LBS(12)=LABEL DISQUETTE 
1820 TAS = STRS (TA(I)D)D:L = LEN (TAS): 
IF L = 3 THEN 1900 
1830 FOR N = L TO 2:TAS = “ * + TAS: NE 
XT N 
1900 STS = NDS + NAS(I) + TPS(I) + TAS + 
ASCI) + LGS(CI) + NLS(I) + CAS(I) 
+ DAS + LBS 
1910 RETURN 
19320 REM MISE A JOUR GLOBALE 
1930 PC%x = O:ID = O 
1940 HOME :TS = “SAISIE/MISE A JOUR“: H 
TAB 20 - LEN (TS) / 2: INVERSE : 
PRINT TS: NORMAL PRINT 
1950 IF TT = 1 THEN 1970 
19360 PRINT ‘’MONTER LA DISQUETTE “2: INV 
ERSE PRINT “A ANALYSER': NORMAL 
: PRINT “SUR LE DRIVE ‘“:: INVER 
SE : PRINT DK;:: NORMAL : PRINT * 
ET TAPER ‘’RETURN’‘";:: GET Z$: PR 
INT Z2s 
1970 VTAB 5: CALL - 9S8: PRINT “EST-CE 
UNE NOUVELLE DISQUETTE (“:: INVE 
RSE : PRINT “O/N“;:: NORMAL : PRIN 
T “) 2? “;: GET Z$: PRINT 2s 
1980 IF 25 « > “OC AND 2S « > “N'‘' THE 
N 1970 
1990 MA = O » (2S = “O") + 1 » (ZS = ‘“N* 
) 
2000 NF = © 
2010 REM LECTURE DANS NDS=NO DISQUETT 
E-FACE 
2020 VTAB 6: INPUT ‘NUMERO DE LA DISQUE 
TTE : “":NDS 
2030 IF LEN (NDS) = O OR LEN (NDS) > 
4 THEN 2020 
2040 IF LEN (ND$) = 4 THEN 2060 
2050 FOR I = 3 TO LEN (ND#) STEP - 1: 
NDS = “O"* + NDS: NEXT I 
2060 VTAB 7: HTAB 10: PRINT ” FACE « A 
OÙ B } : “;: GET FAS: PRINT FAS 
2070 IF FAS < > “A AND FAS& < > “B"T 
HEN 2060 
2080 NDS = NDS + FASs 
2090 VTAB 8: INPUT “LABEL DISQUETTE(O.. 
12 CAR): “":LBS 
2100 IF LEN (LBS) > 12 THEN 2090 
2105 IF LEN (LB$) = 12 THEN 2120 
2110 FOR N = LEN (LB$) TO 11:LBS = LBsS 
+ “ “2: NEXT N 
2120 VTAB 13: INVERSE : PRINT “CLASSE D 
ES FICHIERS": NORMAL : GOSUB 1070 
: VTAB S: INPUT ‘CLASSE DES FICHI 
ERS(1..16): “:GHS: IF LEN (GHS) 
= © THEN 2170 
2130 GH = VAL (GHS): IF GH € 1 OR GH > 
16 THEN 2120 
2140 GH$ = STRS (GH): IF GH < 9 THEN GH 
S = “O" + GHS 
2150 VTAB 10: PRINT “EST-ELLE GLOBALE 
O/N) ? : “s: GET CGS: PRINT CGs 
2160 PRINT 
2170 IF TT = 1 THEN INPUT “COMBIEN Y-A 
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2180 
2190 


2200 
2210 
2220 


2230 
2235 
2240 
2250 
2260 
2270 
2280 


2290 


2300 
2310 


2320 
2330 


2340 
2350 


2360 


2370 
2380 


2400 
2410 
2420 
2430 


2450 
2460 


2470 
2480 
2490 
2500 
2510 
2520 
2530 


2540 
2550 
2560 


2570 
2580 
2590 
2600 
2610 
2620 
2630 


-T-IL DE FICHIERS ? “;:NFS:NF = V 


AL (NF$): IF NF = O THEN 2170 
NDS&(ID) = NDS:ID = ID + 1 
IF TT = © THEN GOSUB 420: REM LE 


CTURE DU CATALOG 
GOSUB 1000: REM AFFICHAGE 
REM TRANSFERT DE ST$ DANS STS(K) 
REM  PCX=POINTEUR COURANT DANS S 
TS CK) 
J = 0:1=1 
IF LEN (NAS(I)) = 
GOSUB 1820:J = J + 
ST#(J + PCX) = STS 
le l# dr IP < ‘e 
PCX = PCX + J 
HTAB 1: VTAB 23: CALL 
30: PRINT “TAUX: "“PCx"x": VTAB 2 
3: INVERSE : PRINT “ENCORE (O/N) 
? “3: NORMAL : PRINT “ “;: GET ZS 
: PRINT Z$; 
IF Z8 € > “o" 
N 2280 
IF 28 = “O“ THEN 1940 
VTAB 23: CALL - 868: HTAB 1: INVE 
RSE : PRINT “ECRITURE SUR DISQUET 
TE (O/ND+RETURN ?";: NORMAL : INP 
UT “ “;28 
IF Z8 < > “O" AND Z8 € > “N" 
N 2310 
IF 2# = “O“ THEN GOTO 2350: 
MISE A JOUR DU FICHIER 
GOTO 2830 
REM DEBUT DE LA SESSION DE SAISIE 
/NISE A JOUR 
HOME : HTAB 10: INVERSE : PRINT 
AISIE/MISE A JOUR“: NORMAL : 
T 
IF PEEK (810) = 2 THEN 2410 
PRINT “MONTER LA DISQUETTE “;: INV 
ERSE : PRINT "PROGRAMME": NORMAL 
: PRINT “SUR LE DRIVE “;: INVERSE 
: PRINT 1;: NORMAL : PRINT “ ET 
TAPER ’RETURN’*; 
GET 28: PRINT 2$ 
IF MA = © THEN 2620 
REM MARQUAGE POUR EFFACER 
PRINT : FLASH : PRINT “MARQUAGE DE 
S FICHIERS A SUPPRIMER“: NORMAL 
PRINT OPSFS 
PRINT RDS&FS#;",RO°: 
NOx 
INPUT LOx 
IF NOx = 1 THEN 2610 
PRINT CLSFS 
PRINT OPSFS;",L";LOX 
FOR IN = 1 TO N1x - 1 
PRINT RDSFS#;",R";IN 
INPUT S1S:NNDS = MIDS (51$,6,5): 
REM  =N.DISK 
FOR IK = © TO ID 
IF NDS(IK) < > NNDS THEN 2590 
ST$ = CHRS (34) + LEFTS (S1S,4) + 
“#* + RIGHTS (S1$,LOx - 7) 
PRINT WRSFS;",R";IN 
PRINT STS 
NEXT IK 
NEXT IN 
PRINT CLSFS 
REM MISE À JOUR DU FICHIER 
VTAB 10: FLASH : PRINT "ECRITURE"; 


O THEN 2260 
1 


NF THEN 2235 


- 868: HTAB 


AND 2$ < > “N'" THE 


THE 


REM 


“s 
PRIN 


INPUT NOX:N1%x = 


AS SE DENe-PY HEAR ET NT 77 LE L 
HHÉRREE EU NENEE 


ext 
St 5806 


mnt 
Es 


(RRRES 


85 45 
peass 
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: NORMAL : PRINT “ DANS ‘“;: INV OUCLE 


ERSE : PRINT F$: NORMAL 2850 VTAB 4: CALL - 958 
2640 REM OUVERTURE DE F# 2860 IF PEEK (810) = 1 THEN PRINT : P 
2650 PRINT OPSFS RINT ‘“MONTER LA DISQUETTE “;: INV 
2660 PRINT RDSFS;",RO*: INPUT NOX:N1%x = ERSE : PRINT "PROGRAMME": NORMAL 
NO% : PRINT “SUR LE DRIVE “;: INVERSE 
2670 INPUT LO% : PRINT 1;: NORMAL : PRINT “ ET 
2680 PRINT CLSFS TAPER ’RETURN’";: GET ZS: PRINT Z 
2690 PRINT OPSFS:",L";LOX% s 
2700 FOR I = 1 TO PCx% 2870 CCS = “CATGEN"“ 
2710 NOS = STRS (NOX):L = LEN (NOS): F | 2880 PRINT DS"RUN"CCS: STOP 
OR N = L TO 3:N0OS = “O" + NOS: NE | 2900 PRINT DS: PRINT “ERREUR “; PEEK (2 
Le XT N 22);" LIGNE “; PEEK (218) + PEEK 
# 2720 STS = CHRS (34) + NOS + “ “ + STS( (219) # 256: STOP 
Es ID:STSCI) = ** 2910 REM INIT. SEQUENCE ’RWTS’ 
® 2730 PRINT WRSFS;",R";NOXx 2920 RESTORE 
+ 2740 PRINT STS 2930 FOR I = O TO 30: READ ML: POKE 768 
M 2750 NO%x = NO%x + 1 + I,ML: NEXT I 
M 2760 NEXT 1 2940 DATA 169,3,160,10,32,217,3,96,0,0, 
2770 PRINT CLSFs 1,96,1,0,17,15,27,3,0,148,0,0,1,0 
M 2780 PRINT OPSFs ,0,96,1,0,1,239,216 
2790 PRINT WRSFS;",RO" 2950 POKE 780, PEEK (810) 
% 2800 PRINT NO%: PRINT LO*% 2960 RETURN 
" 2810 PRINT CLSFS 2970 DATA RUB 
“ 2820 PRINT : PRINT “IL Y A “:NO%x - 1;" 2980 DATA REFERENCES, SYSTEME ,UTILITAIRE 
ARTICLES." , PROCEDURE ,JEUX REFLEXION,JEUX AD 
2830 VTAB 23: CALL - 958: INVERSE : PR RESSE 
INT “RETOUR AU MENU (O/N) ?";: NO | 2990 DATA GRAPHIQUE 1,GRAPH 2,EDUCATIF 
RMAL : PRINT *“ “;: GET ZS: PRINT » GEOGRAPHIE,MATHS 1,PHYSIQUE, MUSI 
2S; QUE 


2840 IF 2$ = ‘*N" THEN 1920: REM ON REB | 3000 DATA DONNEES, GESTION,DIVERS 


GAGNEZ EN ACHETANT 


VOS LOGICIELS PAR CORRESPONDANCE! 


Extrait de nos tarifs : 


EPISTOLE //c (souris) 
PFS: WRITE 
DECISIONNEL GRAPHIQUE 
COMPTABILITÉ CYRUS 
EDI-LOGO 
SARGON Ill 
FLIGHT SIMULATOR II 
DBASE Il (CP/M) SORCELLERIE 1 
FRIDAY! (CP/M) SORCELLERIE 2 


* Plus ou moins selon le produit. 


Tous nos envois sont en recommandé . Les frais de port sont INFOSOF È 


inclus. Envoyez votre commande accompagnée d’un chèque ban 

caire ou postal à l’ordre de INFOSOFT, en précisant votre configu- BP 51 6 
ration et votre type de matériel. Tous ces logiciels sont destinés à 

l'APPLE //. Pour tout renseignement ou pour recevoir nos tarifs 


complets, écrivez-nous à l'adresse ci-contre. 75066 Paris Cedex 02 
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Koala Pad est un logiciel éditeur de 
dessins et graphiques, vendu d'ori- 
gine avec une disquette et une ta- 
blette sensitive, au prix de 1600 FF 
TTC. Ce qui le distingue des autres 
programmes de création graphique, 
c'est avant tout sa simplicité de mise 
en oeuvre. [| comporte un pro- 
gramme extrêmement rapide conte- 
nant toutes les commandes graphi- 
ques haute résolution (HGR). Il 
requiert un Apple Il ou //e avec 48 
Ko de mémoire centrale et un lecteur 
de disquettes. Néanmoins, pour en 
faire un outil de travail, il est préféra- 
ble de disposer de deux lecteurs de 
disquettes. Le copyright est de "Is- 
land Graphics” et la diffusion assurée 
par ‘Technology Corporation”. 


La tablette sensitive se connecte sur 
la sortie manette de jeux de l'Apple. 
La version que j'ai testée était modi- 
fiée de façon à utiliser le joystick //e, 
rendant le programme plus perfor- 
mant et plus souple à l'emploi. L’es- 
sai a été fait sur un Apple //e, mais 
D est possible sur tout Apple 


L'abord du logiciel est assez aisé, et 
l'on acquiert très vite la maîtrise de 
l'ensemble des fonctions. On peut di- 
viser Koala en deux parties distinc- 
tes: les fonctions utilitaires et les 
fonctions graphiques. 


Fonctions utilitaires 


L'appel de cette rubrique affiche un 
menu global à l'écran : 


Cjatalog 

Ultilitaires étendus 
Load 

Slave 


Trois de ces fonctions sont bien 
connues de nos lecteurs. La fonction 
"Utilitaires étendus”, quant à elle, af- 
fiche un sous-menu : 


Lock 

Unlock 

Vherify 

Rjename 

Djelete 

Format data disk 


Cette dernière fonction permet de 
formater une disquette sans le DOS 
(pour gagner de la place), avec au 
maximum une disquette ‘agonflée” 
de 528 sec. pour stocker vos chef- 
d'oeuvres. 

En somme, le concepteur n’a pas 
oublié les fonctions élémentaires du 
DOS, qui font parfois défaut sur des 
programmes d'un niveau supérieur. 


Fonctions graphiques 


Lorsque le programme est chargé en 
mémoire, l'écran affiche un menu 
très complet sous forme d'un ta- 
bleau. Aucune connaissance en infor- 
matique n’est requise pour utiliser le 
programme. 
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Il y a 15 instructions de base (qui 
rappellent beaucoup les fonctions 
graphiques de LISA par leur simpli- 
cité) et une palette de 16 couleurs. Il 
existe en outre une fonction ”CUR- 
SOR”, qui permet de modifier la 
structure du curseur, en forme de 
point ou de croix, ce qui facilitera le 
pointage sur la page HGR. En der- 
nier, nous trouvons la fonction 
"BRUSH SET”, qui donne la possi- 
bilité de dessiner comme si l’on avait 
un pinceau à la main. 


Détail des fonctions graphiques 


DRAW : dessin en continu. 
POINT : dessin de points. 


LINE: dessin de traits On pointe 
l'origine puis, en se déplaçant sur 
l'écran à l’aide du joystick, la fin du 
trait. Celui-ci est alors obtenu en ap- 
puvant sur le bouton 0. 


LINES : semblable à la fonction 
“LINE”, avec la différence que l'ori- 
gine de chaque trait est la fin du trait 
précédent. 


RAYS : tracé de rayons à partir d'un 
centre. Cela aboutit à de beaux effets 
spéciaux: on pointe l'origine, puis 
l'on trace des traits partant de cette 
origine, avec des longueurs réglables. 


FILL : remplit un dessin (éventuelle- 
ment l'écran entier) avec la couleur 
choisie. La surface à remplir doit être 
délimitée par un trait continu; sinon, 
il risque d'y avoir des surprises (rem- 
plissage intempestif de toute une 
zone connexe). 


FRAME : tracé de rectangles. Il suffit 
de pointer un sommet et d'ajuster la 
surface (longeur et largeur) avec le 
manche du joystick: on confirme 
avec le bouton O0, lorsque la figure 
obtenue est adéquate. 

BOX: équivaut à “FRAME” puis 
"FILL”. Création d'un rectangle 
plein. 

CIRCLE : tracé de cercles. On pointe 
le centre du cercle, puis on délimite 
le rayon avec le joystick. 

DISC : équivaut à "CIRCLE” puis 
"FILL”. Création d'un disque plein. 
ERASE : annule le dessin en cours, 
en remplissant l'écran de la couleur 
choisie. 

STORAGE : donne accès aux fonc- 
tions utilitaires décrites plus haut. 
NORMAL : mode d'utilisation nor- 
male, c'est-à-dire à l'échelle 1. 
MAGNIFY : mode loupe. Ce mode 
d'utilisation agrandit le dessin afin de 
faciliter la correction des défauts, 
comme dans le fameux Pinball Cons- 
truction Set, où comme Micro Pain- 
ter. Très utile. 


Utilisation de la couleur 


Le choix des couleurs se divise en 
deux groupes de couleurs : le "color 


Koala pad 


Marcel Cottini 


set 1” et le ‘color set 2”. Les habi- 
tués du graphisme couleur sauront 
de quoi il retourne. Pour les non-ini- 
tiés, voici un petit rappel. 


L'Apple utilise pour son graphisme 
deux pages en haute résolution, la 
page 1 ($2000-$3FF7) et la page 2 
($4000 à $5FF7). Chaque série de 7 
points sur une même ligne de l'écran 
correspond à un octet en mémoire. 
Un point est allumé lorsque le bit 
correspondant est à 1. Une ligne est 
donc formée de 40 séries de 7 points 
(280 points par ligne en HGR). Voir 
à ce sujet ‘Graphiques: de l'ITT 
2020 à l'Apple” et ‘Les adresses du 
graphique”, publiés dans le Pom's 1. 


Le bit de poids fort de chaque octet 
(bit numéro 7) n'est pas visualisé, 
mais il conditionne en partie la cou- 
leur des 7 points liés à l’octet dont il 
fait partie. Ainsi, si le bit 7 est à O, 
tout point isolé correspondant à cet 
octet et situé en colonne paire appa- 
raît violet: en colonne impaire, il ap- 
paraît vert. Si le bit 7 est à 1, les 
points isolés en colonne paire appa- 
raissent bleus, ceux en colonne im- 
paire apparaissent rouges. Si deux 
points ou plus sont côte à côte sur 
une même ligne, ils apparaissent 
blancs même s'ils ne dépendent pas 
du même octet. Pour de plus amples 
précisions, vous pouvez aussi vous 
reporter au manuel de référence de 
l'Apple IL. 


Ceci nous amène à déborder un peu 
du sujet, mais explique l'existence de 
deux gammes de couleurs. Une pré- 
caution s'imposera donc lorsque 
vous travaillerez sur un graphique, 
c'est de toujours utiliser une couleur 
appartenant au même SET” que la 
couleur du fond. Vous éviterez ainsi 
les bavures et mélanges de couleur 
indésirables. 


Fonction Menu/Page 
graphique 


Lorsque le programme est lancé, un 
menu sous forme de tableau s'affiche 
à l'écran, représentant les symboles 
et repères des différentes fonctions à 
votre disposition. Pour sélectionner 
une fonction donnée, il suffit de pla- 
cer le curseur (matérialisé par un 
point} à l’aide du joystick sur le sym- 
bole de votre choix. 


Exemple : pour dessiner un cercle, 
vous choisissez successivement la 
couleur de fond, la finesse du trait, la 
couleur du trait et enfin la fonction 
"CIRCLE”. 

Une fois votre choix arrêté, vous 
pointez le curseur au bas de l'écran 
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(RETURN TO PICTURE), puis vous 
confirmez en appuyant sur le bouton 
O du joystick. C'est tout. Il ne restera 
plus qu à faire la preuve de vos pos- 
sibilités artistiques. Chaque image 
ainsi créée occupera 33 secteurs sur 
la disquette. Un dessin peut toujours 
être modifié à volonté par la suite. 


INFORTEC 


Institut de Formation 
10, rue Saint-Marc - 75002 PARIS 
Tél. 508 96 94 


K 3 


INITIATION A L'INFORMATIQUE 
Matériel utilisé : IBM PC et APPLE il 


PROGRAMMATION 


ET GESTION INFORMATIQUE 
Travaux pratiques sur micro-ordinateurs 


UTILISATION DE LOGICIELS 
Muitiplan, d Base 11, Lotus I.1L.HI.,... 





Evaluation générale 






Avantages - Simplicité d'emploi, 
grande souplesse d'utilisation,  ri- 
chesse des moyens d'investigation. 
Instructions puissantes et variées. Un 
“must” pour toùt programmeur vou- 
lant personnaliser ses disquettes avec 
ses créations artistiques. 


Inconvénients | Il manque la repro- 
duction d'image sur imprimante 
(hard copy), ce qui n'est vraiment 
pas un handicap: on peut toujours 
imprimer par la suite avec un pro- 
gramme de hard copy. À noter: 
quelques temps d'attente lors du 
chargement du programme et des 
graphiques, dûs au DOS 3.3 stan- 
dard utilisé: les propriétaires de DOS 
rapides (David-Dos, Turbodos, DOS 
3.4 et autres) pourront remplacer le 
DOS 3.3 par celui de leur choix. 


Conclusion - Les avantages l'em- 
portent très nettement sur des incon- 
vénients somme toute mineurs. Cha- 
cun peut d'ailleurs apporter les 
modifications de son choix et person- 
naliser son ‘’Koala Pad”. LC 









LES COMPATIBLES APPLE Il* 


5 KIT ZD 101 
** oitier + clavier 
A 26 touches de fonctions 
carte mère 64 K AEpESeS 
+ alimentation 5 À CARTE MÈRE** ; vendu séparément. 
5190 F 48K1 2460F % 
64K __2999F : 


KIT ZD 103 » | KIT ZD 101** 


Boîtier + clavier détachable ; J » < Boîtier + clavier 


: É $ + carte mère 48 K 
26 sb st ie JOY STICK dl + alimentation 5 A. 


luxe 199 F SUPER PROMO 4300 F 
BOITE DE RANGEMENT DRIVE 
= | = 100 DISQUETTES Floppy disque 
KIT ZD 103** £ à 3 5" 4 175F 5°. 1900 


Boitier + clavier 8” nous consulter 
+ carte mère — 


e CARTE CONTROLEUR 420 F © ALIMENTATION 5 À 
per tr CLAVIER DÉTACHABLE e CARTE IMPRIMANTE + 16 K buffer 1360F © VISU 12" VERTE 
+ 1 visu 12'' verte. Vendu séparément avec © CARTE HORLOGE © DISQUETTE pour Hoppy, les 10 
7490 F ou sans habillage © CARTE PARALLÈLE e IMPRIMANTE 80 COL. CP 80 - 
26 touches de fonctions @ CARTE RVB @ VENTILATEUR EXTÉRIEUR __ 
: pavé numérique. e CARTE Z80 | © VENTILATEUR INTÉRIEUR 
avec habillage 1080 F © CARTE 80 COL. © MONIBASE Support de visu orient. 
ane habilage 799 F © CARTE 16 K RAM @ MODEM nous consulter 


BON DE COMMANDE À RETOURNER A 
LE.E.E. 


ADRESSE POSTALE UNIQUEMENT 
23, rue Jean Giraudoux - 75016 Paris 
pour renseignements complémentaires 723.67.47 











Autre matériel, nous consulter. Conditions spéciales pour club, collectivité. etc. 
Tous les prix ci-dessus sont TTC 


Port _25,00 


* Apple est une marque déposée Total 
d. : ** sans tes AOM 
Réglement obligatoire par C.C.P. D] CB C1. Je désire recevoir le matériel suivant: prx vaiables selon dispontlite des stocks 
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Où va donc Apple ? Un Macintosh 
pas tout à fait assez puissant pour af- 
fronter l'IBM PC sur le terrain des 
applications professionnelles, un 
Apple //c pas tout à fait compatible 
avec ses congénères de la gamme 
Apple Il, l'accélération du mouve- 
ment chez le constructeur à la 
pomme multicolore donne le vertige 
aux aficionados. Où va Apple ? Pour 
le Macintosh, la réponse est : vers le 
"Big Mac”, un Mac survitaminé 
(512K contre 128) avec un second 
drive et dont l'apparition (en raison 
du coût des chips 256K) ne se fera 
sans doute que l'an prochain. 


Où va Apple ? Pour la gamme Apple 
Il, quelques éléments de réponse se 
trouvent dans une passionnante in- 
terview accordée par Steve Wozniak 
à la revue ‘In Cider”’ dans son nu- 
méro de juillet. "Woz the wiz” (Woz 
le magicien), comme l'ont surnommé 
les Américains, réaffirme notamment 
la fidélité d'Apple à la compatibilité. 
Tout en assurant que des logiciels 
utilisant la double haute résolution 
graphique (donc incompatibles avec 
certains AIÏl+) sortiront dès la fin de 
l'année. Pour la souris, pas de pro- 
blème : elle est appelée à devenir un 
standard sur l'Apple Il (même si les 
logiciels d'exploitation style Macin- 
tosh mettront encore quelques 
années à voir le jour). 


Le plus intéressant, c'est à coup sûr 
ce qu’annonce Steve Wozniak sur les 
développements de l'Apple //. Pas 
question d’aller vers une intégration 
du MS-DOS (le standard des compa- 
tibles IBM), on s'en serait douté. En 
revanche, l'avenir de l'Apple // passe 
par le processeur 65816. Un 16 bits 
compatible patte pour patte avec le 
6502 des Apple //, qu'il émule au 
repos (on peut sans difficultés ex- 
traire l’un pour le remplacer par l'au- 
tre). Vrai 16 bits ou pas ? Pour Woz- 
niak, ceux qui posent cette question 
sont à côté de la plaque”. L'impor- 
tant, explique-t-il, c'est que le 65816 
dispose de 24 bits adressables. L'in- 
térêt? ‘On est capable, alors, 
d'adresser 16 Megabytes au lieu de 
64K”. Et ça, c'est tout à fait passion- 
nant, car rien n'interdit plus alors 
d'ajouter à l'Apple des cartes d'ex- 
tension mémoire équipées de chips 
de 256K, d'écrire et d'utiliser des lo- 
giciels super-intégrés (genre Open 
Access ou Lotus Symphony), gros 
consommateurs de mémoire, qui font 
le triomphe de l'IBM PC. 


De quoi rêver, non? Seulement. 
nous replongeons alors dans les 
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Micro-informations 


affres de l’incompatibilité. Si doper 
un Apple II+ ou //e est possible, réa- 
liser la même opération sur le //c pa- 
raît plus problématique (les chips 
sont soudés sur la carte mère et non 
enfichés comme sur les autres Apple 
/!). Conclusion : gare au //c! Il n’est 
pas compatible à 100 % avec ses 
aînés, et réciproquement: ainsi, si 
Jane tourne indifféremment sur n'im- 
porte quel Apple, Epistole version 
{/c-souris produit d’étranges effets sur 
un // e muni d’une souris. On risque 
donc à terme de se retrouver avec 
les 16.000 programmes existants, 
avec une gamme écrite pour le //c et 
ne fonctionnant que sur cette ma- 
chine, et avec des logiciels pros” 
pour Apple // 16 bits et réservés à ce 
dernier. Mais, après tout, il existe 
déjà des logiciels pour Apple nécessi- 
tant une carte spéciale (les produits 
CP/M). 

En attendant les Apple de demain, 
voici de quoi occuper les mémoires 
de ceux d'aujourd'hui. 


Une souris des 


pommes 


pour 


Le jeu de mot est douteux. Pas la 
souris, qui vient d'arriver pour l'Ap- 
ple // : une carte d'extension (une de 
plus), un manuel, une souris et une 
disquette, c'est ce que propose Apple 
pour quelques 1200 F. La souris, 
c'est celle de Macintosh. La carte 
possède son propre microprocesseur 
(qui rend les opérations de la souris 
plus rapides qu'avec le //c). Le ma- 
nuel est parfait et comporte même 
des routines pour utiliser la bête en 
Basic. Quant à la disquette, elle offre 
"Mouse Paint”, un logiciel de dessin 
qui reprend certaines des fonctions 
de MacPaint (pour Macintosh). Le 
trait est certes moins fin que sur le 
32 bits. Seulement, là, on a la cou- 
leur. 


Plus traditionnelles, les cartes musica- 
les d'ALF pour Apple // à trois voies 
MCI1 (169 dollars) ou à neuf voies 
MC16 (179 dollars). On peut chan- 
ger le tempo ou jouer plusieurs airs 
en séquence. Ou encore ce buffer de 
clavier Quentin AP 810, qui permet 
aux possesseurs d'Apple //e de taper 
sur les touches à leur rythme sans se 
préoccuper de savoir si la machine 
suit. 


Donner de la voix 


Avec l'Introvoice //, on peut désor- 
mais contrôler des logiciels en par- 
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lant. Une carte, à enficher (qui 
contient un analyseur de spectre 
audio, 16K de RAM et 8K de ROM), 
un micro et un logiciel. Le construc- 
teur garantit la reconnaissance d’un 
vocabulaire de 160 mots maximum 
avec une précision de 98%. Même si 
ces appareils ont quelques difficultés 
à s'adapter à un vocabulaire en fran- 
çais, ce n'est pas mal (995 dollars 
pour l'Apple //e). 


Espionner la police 


Ou encore écouter les communica- 
tions des radio téléphones de voitu- 
res, des taxis ou des dépanneurs, 
avec l’aide de l'Apple // et du scan- 
ner Bearcat CP 2100 d’'Electra. Deux 
cents canaux programmables, dont 
les caractéristiques, les fréquences et 
les noms peuvent être visualisés sur 
le moniteur ou mis en mémoire sur 
disquette. La radio avec son haut 
parleur et son antenne se relie par 
câble à une interface RS 232. En- 
suite, l'Apple prend le contrôle et on 
pilote au clavier le niveau sonore, le 
réglage des fréquences, etc. (500 
dollars). 


Cocorico 


Voici un Modem français. Et pour 
moins de 1500 francs, en voie d’ho- 
mologation de surcroît, c'est celui 
d'In Electronic (le créateur des célè- 
bres Modulo-Phones). Il sera pré- 
senté à la rentrée au SICOB. 


L’Apple art 


Voici de quoi exploiter les possibilités 
graphiques des Apple //! Flying 
Colors permet de réaliser des dessins 
assistés par ordinateur avec le joys- 
tick, et aussi de présenter des images 
sur l’écran (manuellement ou auto- 
matiquement) selon un ordre pro- 
grammable. B/ Graph, de Commo- 
dore, tourne aussi sur Apple et offre 
un grand choix de graphiques et un 
excellent manuel de statistiques (100 
dollars). Une nouvelle version de 
Graphics Department de Sensible 
Software permet de faire une présen- 
tation graphique (courbes, graphi- 
ques, camemberts, le tout agrémenté 
de lettres diverses et en séquence, 
comme avec un projecteur de diapo- 
sitives) et surtout de la réaliser avec 
la souris (125 dollars). A signaler, 
pour ceux que les graphiques intéres- 
sent, une étude exhaustive sur les lo- 
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giciels réalisée par Creative Compu- 
ting dans son numéro de juillet. 


Printshop de Broderbund Software 
est un logiciel tout à fait étonnant 
permettant de concevoir, dessiner et 
imprimer des cartes de voeux, des 
calicots etc. On choisit ses caractères, 
le dessin des bordures, les images et 
les symboles. Le programme est livré 
avec un choix de papiers de couleurs 
pour imprimantes à picots et d’autres 
gadgets (50 dollars). Le SSD (Super 
Screen Dump) de Schwartz Compu- 
ter Consulting se compose d'une 
carte d'interface avec un bouton de 
recopie écran, d'un manuel et d'un 
logiciel permettant d'imprimer tous 
les textes et graphiques sur Imagewri- 
ter, DMP ou Epson sans sortir du 
programme en cours pour un prix 
défiant toute concurrence (41 dol- 
lars). Enfin, après Visicalc, on peut 
désormais imprimer Multiplan en tra- 
vers (comme sur le Macintosh) ainsi 
d’ailleurs que n'importe quel autre 
programme grâce à Sideways de 
Funk Software (60 dollars). 


Du côté des tableurs, Microsoft sort 
en septembre la version 1.07 de 
Muitiplan : compatible //c, capable 
d'utiliser les 128K du //e et du //c, et 
enrichie de fonctions nouvelles, en 
particulier le taux de rendement in- 
terne que seul Visicalc Advanced 
Version offrait à ce jour sur Apple. 
On trouvera aussi les fonctions finan- 
cières valeur future (FV), nombre de 
périodes (NPER), mensualités (PMT) 
et calcul de taux (RATE), cette der- 
nière n'existant pas sur le V.A.V. Les 
possesseurs de Multiplan version 
1.06 pourront se mettre à jour à un 
prix d'ami (pas plus de 300 francs) 
grâce à un échange standard que Mi- 
crosoft compte organiser. 


Côté boulot 


Typing tutor III de Kriva Systems est 
un extraordinaire programme per- 
mettant d'apprendre la dactylogra- 
phie. Le programme mesure cons- 
tamment le temps de réponse de 
l'élève, et ajuste ses leçons en consé- 
quence. Si ce n'est pas de l'intelli- 
gence artificielle, ça v ressemble 
beaucoup. Pour seulement 50 dol- 
lars. Seul défaut, ce programme 
américain est bien sûr conçu pour un 
clavier QWERTY. Mais, après tout, 
apprendre à s’en servir n’est pas for- 
cément du temps perdu. Tick Tack 
de Longmank permet de correspon- 
dre dans une langue sans en 
comprendre un mot. Son génie : des 
phrases standard, pouvant être tra- 
duites automatiquement en anglais, 
français, allemand ou espagnol. Les 
lettres peuvent ensuite être éditées 
grâce à n'importe quel traitement de 
texte (150 livres en Grande Breta- 
gne). 





Pour le Mac et le //c, 
guère de nouveau 


À signaler seulement des disques 
durs Tecmar Mac Drive de 10 Mega- 
bytes fixe ou de 5 Megabytes amovi- 
bles pour le Macintosh. Avec les Da- 
vong et les Symbiotic qui devraient 
aussi sortir pour le Mac, on aura 
bientôt l'embarras du choix. 


Pour le //c, Catalyst QC10 de Quark. 
Les prix ne sont pas encore fixés. 


Bien sûr, la plupart de ces produits 
(qui viennent de paraître) ne sont 
pas encore disponibles en France. 
Mais, on peut toujours les comman- 
der aux Etats-Unis, et certains ne tar- 
deront pas à être importés. En ma- 
tière de  micro-informatique, la 
futurologie, c'est déja le présent, et 
l'actualité le passé... 


Quelques compléments 


Multi-Phone, commercialisé par Pro 
Forma vous permet de programmer 
des séries d'appels téléphoniques. 
compose pour vous en faisant appa- 
raître la fiche à l'écran. Une carte 
reliée à une prise gigogne (pour le 
téléphone) se loge à l'intérieur de 
votre Apple Il + ou /e: pour le prix 
forfaitaire de 5.900 francs HT. vous 
aurez la carte, le logiciel en Pascal, 
une disquette de démonstration et 
deux disquettes-fichier contenant les 
fiches des 1000 premières entreprises 
françaises classées par effectif dé- 
croissant. Vous n'y trouverez pas 
Pom's … 


Alliance Research vend $300 un 
clavier détachable pour Apple je, 
proche dans son dessin du clavier 
IBM et possédant comme lui 10 tou- 
ches de fonction. 


Le logiciel TK! Solver pour l'analyse 
et la résolution d'équations devient 
disponible pour l'Apple //e en version 
128K, après avoir fait ses preuves sur 
le PC d'IBM. 


Kodak commercialise dès à présent 
dans le Royaume Uni un lecteur de 
disquettes 5 pouces 1/4 avec 3,3 mé- 
gaoctets non formatés sur 192 pistes 
par pouce {tpi}, capable de lire aussi 
du 48 et 96 tpi. Quand on met une 
disquette normale dans le lecteur, 
son microprocesseur la détecte aussi- 
tôt et adapte la vitesse du moteur en 
conséquence. On n'arrête pas le pro- 
grès ! 


Le célèbre programme de gestion de 
fichiers Omnis. commercialisé en 
France par Ka. voit sa gamme s'enri- 
chir : l'utilisateur possède maintenant 
le choix entre Omnis 1, 2 ou 3. Dans 
Omnis 3. la version la plus complète, 
il est possible de définir les menus. 
les séquences de commande et les 


messages les accompagnant; on peut 
aussi, comme d’ailleurs avec Omnis 
2, travailler sur 12 fichiers ouverts si- 
multanément (2 pour dBASE Il). 


Des fiches en plastique aide-mémoire 
pour les principaux logiciels vous 
sont proposées par Barons AG, réa- 
lisées par Kleertex. Chaque fiche en- 
toure le clavier. Les logiciels déjà pris 
en compte pour l'Apple sont Words- 
tar/Mailmerge, Visicalc, dBASE II, 
Apple Writer et Quick File, ce dernier 
existant seulement (et pour cause) en 
version //e. 


Adresses 


AIf - 1315 F Nelson St. - Denver, 
Co 80215 - USA 

Apple Seedrin - av. de l'Océanie, 
ZA de Courtaboeuf - BP 131 - 
91944 Les Ulis - Tél (6) 928.01.39 


Barons AG - 8 avenue des Grandes 
Communes - 1213 Petit Lancy - Ge- 
nève - SUISSE - Tél (022) 93.47.47. 


Broderbund Software - 17 Paul 
Dr. - San Rafael, CA 94903 - USA 
Commodore Business Machines 
- 1200 Wilson Dr. - West Chester, 
PA 19380 - USA 

Creative Computing (vendu chez 
SIVEA) - 3460 Wilshire Bd. - Los 
Angeles, CA 90010 - USA 

Electra Company - 300 East 
County Line Road - Cumberland, IN 
46229 - USA 

Funk Software - PO Box 1290 - 
Cambridge, MA 02238 - USA 

In Cider (en vente à Paris au Multis- 
tore Hachette et dans les boutiques 
Sivea) - 80 Pine St - Peterborough, 
NH 03458 - USA 

In Electronic - 3 Bd. Ney, 75018 
Paris - Tél 238.80.85 

Kriya Syst - Simon & Schuster 
Electronic Publ. Div. - 1230 Ave. of 
the Americas - New York NY 10020 
- USA 

Longman Group - Longman House 
- Burnt Mill - Harlow Essex CM 202 
JE - Royaume Uni 

Microsoft - 519 local Québec - 
91946 Les Ulis Cedex - Tél 
446.61.36 


Pro Forma - 14 rue Martel - 75010 
Paris - Tél 523.25.05. 


Quark - 2525 West Evans - Suite 
220 - Denver, CO 80219 - USA 
Quentin Corp. - 9207 Eton Ave. - 
Chatsworth, CA 91311 - USA 
Schwartz Computer Consulting - 
3868 Cedar Hill Road, Victoria BC - 
Canada V8P326 

Sensible Software - 24011 Seneca 
Oak Park, MI 48237 - USA 

Tecmar Inc. - 6225 Cochran Rd. - 
Solon (Cleveland) - Ohio 44139 - 
USA 

Voice Machine Communications 
- 1000 South Grand Ave.-Santa 
Ana, CA 92725 - USA = 
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ple-tell 


un modem qui fait, d'un simple Apple, un Minitel intelligent 


Apple-tell comprend : e Utilisation optimale des ressources ue vous  dispo- 
e Une carte Modem incluant un décodeur Teletel. sez déjà (disques, imprimante, logiciels, etc. 
e Un logiciel d'Emulati ion de Terminal Minitel enrichi de + Utilisation possible en mode Terminal autant qu'en 






trois éblouissantes fonctions (celles qui faisaient le plus mode Serveur (jusqu'à quatre portes) 

défaut jusqu'à présent sur votre Minitel) + Enfin (et c'est sans doute le point le plus important) 
IMPRESSION : lin Pr otre Apple est exploitée JONCTION entre le monde extérieur et les outils 
pour sortir les c s avez besoin lorsque standards de votre Apple : l'incorporation des données 
JOus consultez u dans Apple-writer, Visicalc, Multiplan, PFS, Quick-File, etc. et 
STOCKAGE : même dans vos applications personnelles (comptabilité : suivi de 










































se Re DE commandes, fichier.) devient possible. < 

c CARACTERISTIQUES GENERALES : = 

+ Modem multimodes : Fr. 

6 — 1 200/75, {full-duplex) Fr 

e Texte 1 200 (half-duplex), F 
ploitation locaie ultérieure — 600 (half-duplex),300 (full-duplex), à, 
AUTOMATISEME lintel ligence — Standards CCITT et BELL FA 
pple est mobi lisée pour (cette caractéristique unique ” 


‘int rogation automatique rend accessibles les serveurs 
lOuS \ j nord-américains, y compris 


-. 
par réseau téléphonique & HELLO 




















successifs) Ce. commuté) | hi informatique 
JU Sur disque les Sorties : video FA 1, rue de Metz 
puIS pour traiter ceiles-ci, en les in- composite (N & B) et Péritel 75010 PARIS 
application couleurs M en : "Tél. : (1) 523.30.34 
0 térrogation sont créées par l'utilisateur, e compatible Apple 2, Apple 3 ; 
sans aucu Q de programmation, grâce au mode 2+, Apple 2e (48 K, une Telex:FLASH 210500 F 
d apprentis > d APL -Tell) disquette) di 
Evénement du dernier SiCOB, salué par toute la presse, .« Enfichable dans nim- "7 NON: era nsc ee 
: > dOr 1983 par le jury Apple, le porte quel slot libre Ps EEE 
Apple - Tell marque une mutation décisive dans de votre Apple 2 SOCIBIÉ 45 der varie sus nus eee 





des techniques  vidéotex en environnement + Transparence  & Adresse 


es | totale VIS à VIS 5 ous eh ne 2/0 0.001.278 eue en 0,0 06.6 © not de de L'o à 
e pont d'arrêt à la prolifération des matériels sur votre du système. € Ville 
bureau fetfet “mini-Sicob"} 7 Ve ........,......, pesreresereeesses 
Du ou Code postal ......... ME aie audi sega 
HELLO Informatique : WMetz 75010 PARK : 11 522 30 %4 D Souhaite recevoir une documentation sur le système Apple-Tell 
rue de Metz 75010 PARIS él ) 523 30 34 F3 


* D Commande 0 systémei{s} Apple-Tell au prix de F. 6997 TTC 
ra {réglement ci joint par : © chèque bancaire D CCP] 


mermanres CAO 








Une gamme complète 
Des technologies de pointe 


e Couleur à jet d'encre 
e Matricielle 

e Laser 

e Thermique 

e Transfert thermique 


MATÉRIEL DISPONIBLE CHEZ LE DISTRIBUTEUR AGRÉÉ 


ASAP 





3, Avenue des Trois Peuples - 78180 MONTIGNY-LE-BRETONNEUX 


Tél. (3) 043.82.33 - Télex 698887 F 
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Graphic Trappes - (3) 044.16.21 


Un INPUT généralisé miniature 


Une des contraintes les plus énervan- 
tes de l'Applesoft est peut-être le 
manque de réalisme de sa routine 
d'Input. Celle-ci refuse obstinément 
les virgules et deux-points: et les ca- 
ractères blancs précédant une chaîne 
sont purement et simplement oubliés. 


Encore une routine d’Input, allez- 
vous dire... Soit, mais celle que je 
vous présente aujourd'hui tient en 
deux lignes Applesoft. Qui fait 
mieux ? 


Utilisation de la routine 


La routine tient dans les lignes 100 
et 110, et peut être insérée (éven- 


tuellement avec d’autres numéros 
d'instructions) dans tout programme 
Applesoft. Le petit programme en 
Basic des lignes 10 à 50 ne sert qu’à 
illustrer le fonctionnement de cette 
routine. 


Explication du fonctionnement 


L'appel en 54572 ($D52C) utilise la 
routine d'entrée du moniteur (qui, 
lui, accepte tout ce qu’on lui donne) 
et remplit le buffer d'entrée à 
l'adresse 512 jusqu'à 767 ($200- 
$2FF). Il ne reste plus qu'à transférer 
la saisie vers une variable chaîne Ap- 
plesoft : à partir du début du buffer, 
le premier octet nul indique la fin de 
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la saisie. Une fois celui-ci trouvé, on 
obtient l'adresse de la variable par 
l'expression : VAL(IN$) + 
PEEK(131) + 256 x PEEK(132). 


En effet, les octets 131 et 132 
contiennent en permanence l'adresse 
du descripteur de la dernière variable 
utilisée, en l'occurence IN$. Il ne 
reste plus qu'à mettre à jour le des- 
cripteur pour qu'il pointe vers la zone 
du buffer contenant la saisie, puis à 
copier la chaîne vers une zone mé- 


moire protégée par l'expression 
IN$=MIDS(INS, 1), apparemment 
inutile mais qui force la création 
d’une nouvelle chaîne. Et voilà ! re 





Lecture/Ecriture rapide de tableaux 


Il est souvent utile de pouvoir sauve- 
garder un tableau Applesoft de varia- 
bles numériques, par exemple pour 
une utilisation conjointe par plusieurs 
programmes. 


Malheureusement cette fonction, dis- 
ponible avec l'utilisation des casset- 
tes, a disparu avec le DOS 3.3 (mais 
réapparu sous ProDOS, c'est une 
autre histoire). Des programmes en 
assembleur ont parfois été proposés 
pour combler cette lacune, mais 
pourquoi faire compliqué quand on 
peut faire simple ? La routine que je 
vous propose ici tient en deux lignes 
de bon vieux Basic : une ligne pour 
la sauvegarde du tableau, une ligne 
pour son chargement. 


Utilisation 
Le programme en Basic de 10 à 210 


1 REM ##* NIBBLE ARRAY ## 


10 N = 8:P = 9: REM DIMENSIONS DU TABLEAU 

20 DIM T(N,P):TS = “NIBBLE.TABLEAU" 

#** T(I,J)=1+1+J/10 #* 

40 FOR I = O TO N: FOR J = O TO P:T(I,J) = 1 
NEXT 


30 REM 


+ I + J / 10: NEXT : 
SO TEXT : HOME 


60 PRINT “AFFICHAGE DES VALEURS“: PRINT : GO 


SUB 200 


est un simple exemple d'utilisation de 
la routine de sauvegarde (ligne 510) 
et de la routine de lecture (ligne 
610). Encore une fois, vous pouvez 
intégrer ces deux lignes dans tout 
programme Basic, quitte à leur don- 
ner n'importe quel numéro d'’instruc- 
tion. 


Fonctionnement 


Comme pour l'INPUT généralisé mi- 
niature, cette routine utilise avec 
bonheur les adresses 131 et 132 qui 
contiennent le vecteur vers le des- 
cripteur de la dernière variable réfé- 
rencée, que ce soit une chaîne de 
caractères ou un tableau de variables 
numériques. Il ne reste plus qu’à cal- 
culer la taille du tableau avec la for- 
mule L = 5 «x (N+1) x (P+1), où N 


500 AD = O * T(O,0) + 
EK (132): 
E"TS",A"AD",L"S # (N + 1) »# (P + 1): R 


ETURN 
599 REM 


65 PRINT “SAUVEGARDE DU TABLEAU“: GOSUB 500 
70 PRINT “EFFACEMENT DU TABLEAU*: GOSUB 100 


75 PRINT “AFFICHAGE DES VALEURS“: PRINT : GO 1 REM 


SUB 200 


80 PRINT “CHARGEMENT DU TABLEAU“: GOSUB 600 
85 PRINT “AFFICHAGE DES VALEURS"“: PRINT : GO 


10 TEXT : HOME 
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et P sont les dimensions, et le tour 
est joué | 


Remarques 


Pour un tableau de dimension 3, par 
exemple, remplacez la formule par 5 
* (N+1) x (P+1) x (Q+1), où N, P 
et Q sont les dimensions. 
Pour un tableau de nombres entiers, 
remplacez le 5 de la formule par un 
puisqu’un entier est stocké sur 
deux octets seulement. 
Enfin, il n'est pas possible d'utiliser 
un tableau de chaînes de caractères, 
celles-ci étant dispersées un peu par- 
tout dans la mémoire; mais rien ne 
vous interdit de le convertir en ta- 


bleau d’entiers par la fonction 
ASC(MIDS$(T$(LJ),L,1))... 


PEEK (131) + 256 » PE 
PRINT : PRINT CHRS$ (4)"BSAV 


##* CHARGEMENT ## 
600 AD = O »*# T(O,0) + 
EK (132): 
D'TS“,A"AD: RETURN 


PEEK (131) + 256 * PE 
PRINT : PRINT CHRS (4)'*BLOA 


*** NIBBLE INPUT ### 

5: PRINT "DONNEZ UNE CHAINE DE 
CARACTERES AVEC DESGUILLEMETS, DES VI 

RGULES OU DES ESPACES:"* 


SUB 200 20 PRINT : PRINT “-->*;: GOSUB 100 
30 PRINT : PRINT CHR& (4)"DELETE"TS: END 30 IF INS = “" THEN PRINT : PRINT “C’EST FI 
93 REM ##* REMISE A ZERO »» NI“: END 
100 FOR I = © TO N: FOR J = O TO P:T(I,J) = 40 PRINT : PRINT ‘“==>"INS"<==": GOTO 20 


O: NEXT : NEXT : RETURN 
** AFFICHAGE DES VALEURS ## 

200 FOR I = O TO N: FOR J = O TO P: PRINT T{ 
PRINT : 


193 REM 
1,J)" “;: NEXT 


: RETURN 
499 REM ##*# SAUVEGARDE ## 
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100 CALL 54572: FOR B = 512 TO 768: IF PEEK 


(B) < 


NEXT : PRINT 256 »* 


KE AD + 1,0: POKE AD + 2,2:INS - 
RETURN 


(INS,1):B = 768: NEXT 


> © THEN 
= VAL (CINS) + 
PEEK (132): POKE AD,B - 512: PO 


101 INS = ‘““:AD 


NEXT 
PEEK (131) + 


MIDS 


| 
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BONJOUR LES PRIX! 


NOS PRIX SONT F TTC 




















Carte langage 400 Speech card 320 
Carte 128 k ram 1550 Carte horloge 500 
Carte 80 colonnes 700 Joystick 165 
Interface série 520 Ventilateur 280 
Super série 1000 Contrôleur de drive auto switch 13/16 370 
Interface parallèle 380 Microdrive 3" 1900 
Grappler+buffer 16 k 1350 Moniteur vert 12" 950 
Carte modem 2200 Disquettes 5” 1/4 S.F./S.D. par 1 boîte 140/boîte 
Carte Z 80 410 Disquettes 5” 1/4 S.F./D.D. par 1 boîte 175/boîte 
Wildcard 400 


AU-DESSUS, NOUS CONSULTER. 


Carte bleue et eurocard acceptées 
Vente par correspondance: nous consulter. 


Computer 3 


3, rue Papillon 75009 Paris - Tél.: 523.51.15 


(métro Poissonnière) ouverture du lundi au samedi de 10 h à 19 h 30 











LA PHOTOCOMPOSITION EN PROLONGEMENT DE LA MICRO-INFORMATIQUE 


TRANSMETTEZ-NOUS VOS TEXTES 
PAR TÉLÉPHONE = 


è FF 
DONNEZ-NOUS VOTRE DISQUETTE 


Les textes de vos articles, catalogues, annuaires ou brochures 
saisis sur votre APPLE sont envoyés directement sur notre photocom- 
poseuse. 


Nous vous évitons ainsi, le coût et le temps de la saisie supplé- 
mentaire que nécessite le traitement traditionnel de la photocompo- 
sition avant l'impression des documents, si vous le désirez nous pou- 
vons également nous charger de l'impression et du brochage. 


Tuisre =FrIri 
TRE REFERENCE. LA REV TAECOMPO 666 
NOTRE RÉFÉRENCE... LA REVUE POM'S EL 








BUREAUTIQUE MATERIEL DE LEE 
TRANSMISSION DE OOMNEES TRAITEMENT 0€ TEXTES 430) VINCENNES 


PHOTOCOMPOSIMION GESTION DE FICHIERS 13 2 5 avenue du Peff Pac 








FRA HENEEX SRARANSNANE ISERE 
HET SE Part rte eus esl 
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La touche DEL, sur l'Apple //e, en 
dehors de faire des damiers qui per- 
mettent d'écrire avec des PRINTSs le 
titre Pom's, le sauver sur disquette et 
le rappeler, à certainement d'autres 
fonctions. Quel est son code ? Peut- 
on trouver un exemple simple de son 
utilisation ? 

Jean-Claude Baron - 

31530 Lévignac 


Quand vous avez un doute sur le 
code d’une touche, il suffit d’exécu- 
ter un petit programme Basic tel 
que : 


10 GET A$ 
20 PRINT ASC(A$) 
30 IF ASC(A$)<>13 THEN 10 


Le programme ci-dessus sort les 
codes ASCII de toutes les touches et 
s'arrête dès que l'on appuie sur la 
touche RETURN. Vous pourrez ainsi 
constater que le code de la touche 
DEL est 127 ($7E). 

Bien entendu, tout programme Basic, 
Pascal ou assembleur peut faire 
appel à ce caractère et tester le code. 
Ceci dit, nous ne voyons pas 
d'exemple spécial utilisant ce carac- 
tère, en dehors des possibilités gra- 
phiques que vous avez soulignées. 





Dans la revue Pom's, je n'ai pu trou- 
ver le programme qui me permettrait 
de réaliser une “hard-copy” d'écran 
HGR, dessiné au moyen des instruc- 
tions HPLOT. 


Jean-Claude Ricateau - 
30400 Villeneuve les Avignon 


A l’aide des instruction HPLOT, vous 
pouvez dessiner sur la page graphi- 
que 1 ou 2. L'article ”’Les adresses 
du graphique” dans le Pom's 1 vous 
indique que la page 1 va de $2000 à 
$3FFF, et la page 2 de $4000 à 
$5FFF. 

Ainsi, pour sauvegarder sur disquette 
la page 1 après y avoir dessiné avec 
des HPLOTS, il suffit de faire BSAVE 
nomfic,A$2000,L$2000 où ‘’nomfic” 
est le nom que vous voulez donner à 
l'image résultante. 

Il ne vous reste plus qu’à utiliser un 
des nombreux programmes d'impres- 
sion d'image, ou même une 
commande directe (telle que CTRL-I 
OH) d'impression d'écran graphique, 
si votre carte d'interface en possède 
une fonctionnant avec votre impri- 
mante. 


Suite à l'article ‘Donnez du caractère 
à votre imprimante, j'ai essayé l'im- 
pression en Multiplan sur mon impri- 
mante, une Centronics 152. Pour 
passer en condensé, il faut faire 
"IT" en double condensé 
"TICN" et en caractères normaux 
*717%S" Sans le Pom's 4 (Les codes 
ASCII épluchés), je n'aurais jamais 
trouvé ! 
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Courrier des Lecteurs 


Hervé Guénec - 06950 Faucon 


De la part des autres lecteurs qui au- 
raient une Centronics 152, merci … 


Possédez-vous des informations 
comparatives entre le Pascal 1.1 et le 
Pascal 1.2 ? Quand la nouvelle ver- 
sion sera-t-elle disponible ? 


B. Lambillon - 51 rue de l’Automne 
- 1050 Bruxelles 


La différence principale entre le Pas- 
cal 1.1 et le Pascal 1.2 tient à ce que 
ce dernier travaille en 128 Ko de 
mémoire centrale; en outre, plusieurs 
bugs du 1.1 ont disparu. Le produit 
devrait être sorti à la parution de ce 
numéro. 





Comment peut-on avoir accès aux 
touches de l'Apple //e qui n'existaient 
pas sur l'Apple Il Plus ? Le manuel 
est totalement muet sur ces nouvelles 
possibilités. 

Dr. Denis Rousseaux - Auxon Dessus 
- 25870 Geneuille 


Les nouvelles touches ont les codes 
suivants en ASCII : 10 et 11 pour les 
flèches vers le bas et le haut, 127 
pour DEL, 9 pour TAB. La pomme 
ouverte et la pomme pleine corres- 
pondent aux boutons 0 et 1 des ma- 
nettes de jeu, comme vous pouvez le 
constater avec tout jeu utilisant les 
manettes. Les octets 49249 et 49250 
permettent de tester l’état de ces tou- 
ches (voir Pom's 13 p.45). 





Apple, champion toutes catégories de 
l'incompatible ! 

En passant de l'Apple II+ à l'Apple 
‘e, Apple à commis une erreur de 
conception. Si le progrès technologi- 
que justifiait le /’e, le clavier, lui, a 
fait l'unanimité. des mécontents. 
Pour économiser deux bouts de 
chandelle et conserver l'ancien bof- 
tier, on n'a pas hésité à plonger l'uti- 
lisateur dans un  dédale de 
complexité dont la plupart ne se sor- 
tent pas. Deux utilisateurs sur trois 
rêvent d'un clavier normal pour rem- 
placer le puzzle du //e, alors qu'il au- 
rait été si simple de mettre la carte 
mère dans un boîtier séparé et de 
laisser l'acheteur choisir son type de 
clavier détachable. 


Mais les choses n'en restent pas là, et 
Apple qui à fondé sa gloire sur 
l’adaptabilité vient de faire un bond 
en avant vers l'absurde en passant 
en un rien de temps de l'erreur à 


Alexandre Duback 


l'aberration technique et commer- 
ciale. 


Le //c devait initialement être destiné 
à une clientèle déjà équipée et qui 
attendait un portable avec impa- 
tience. Cela supposait donc une 
compatiblité totale. En fait c'est 
d'INCOMPATIBILITE qu'il s'agit. 


Si vous possédez 20.000 ou 30.000 
francs de logiciel, vous pouvez les 
mettre à la poubelle. Si vous possé- 
dez une imprimante autre que 
l'Image Writer, vous pouvez la mettre 
à la poubelle. Si vous avez des drives 
en plus sur votre [+ ou //e, vous 
pouvez les mettre à la poubelle. 


Votre joystick, quel que soit son mo- 
dèle, prendra le même chemin et 
surtout ne comptez pas sur ProDOS 
pour vous aider, il est lui aussi spé- 
cial au //c. 


Ni Multiplan, ni Apple Writer, ni Ma- 
gicalc, ni PFS.. bref plus aucun pro- 
gramme sérieux ne fonctionne. Il 
vous faudra tout racheter à moins 
qu'un sursaut de bon sens ne vous 
fasse tout simplement ignorer le //c, 
ce qui semble être la voie de la sa- 
gesse. 


Voyons maintenant le Macintosh. 
Bien sûr l'incompatibilité est là aussi 
totale. Mais Apple, qui cherche tou- 
jours à se surpasser, à trouvé avec 
cette machine toute neuve un truc 
auquel les autres constructeurs 
n'avaient même pas pensé : rendre 
la machine incompatible avec elle- 
même; ça. c'est fort ! 


En effet, les Macs sont vendus en 
France avec un clavier Azerty et les 
programmes ne sont compatibles 
qu'avec un clavier Qwerty. Simple... 
mais il fallait y penser. Ainsi, les Mul- 
tiplan vendus pour Mac ne tournent 
pas sur Mac... 


Bien sûr, là encore votre chère impri- 
mante ira à la casse; quant au drive 
supplémentaire, il vous faudra dé- 
bourser près d'un demi-million de 
centimes pour l'avoir, et tout ça pour 
pas tout à fait 400 malheureux Ko. 


Le bloc numérique, vous le paierez 
en supplément, alors qu'il aurait dû 
être intégré à la souris, cette fameuse 
souris qui aurait dû être branchée sur 
le clavier pour éviter fous ces fils 
pendouillards et éviter en cas de 
panne d'être privé du clavier. Même 
aberration d’ailleurs pour le Duodisk 
dont toute panne de l'un entraîne la 
privation de l'autre et donc l'immobi- 
lisation de l'unité centrale. 


Reste à savoir quelle merveille d'in- 
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cohérence nous réserve Apple avec 
le Lisa 2: parti comme ça l'est, nous 
ne serons sûrement pas déçus. Et, 
pendant ce temps-là, Toshiba nous 
fournit une machine avec deux 
drives de 700 Ko formatés chacun et 
un superbe écran graphique pour 
moins de 21.000 F TTC. Décidé- 
ment, comme le dit la publicité, 
‘l'empire contre-attaque” et risque 
fort de l'emporter si le bon sens n'est 
pas rapidement restauré. 


Jean Chamoin - 13001 Marseille 


Nous avons transmis votre lettre à 
Apple et publierons volontiers leur 
réponse, si vous pouvez nous l'en- 
voyer. Ceci dit, je dois vous avouer 
que si, comme vous, j'ai trouvé le 
clavier du //e très désagréable durant 
la première demi-journée, je le pré- 
fère aujourd'hui cent fois à celui de 
lIBM PC. Avez-vous essayé d'utiliser 
un tableur avec le PC? Comment 
obtient-on les chiffres avec un clavier 
Azerty sans se mettre en blocage ma- 
juscules ? Au moins, avec le //e, je 
fais tout en clavier US, sauf le traite- 
ment de textes, et j'en suis ravi. 

De plus, quand des jeux américains 
utilisent pour le déplacement les tou- 
ches I, J, K et M, cela devient fort 
peu pratique si l'on est forcé de tra- 
vailler en Azerty. 

Enfin, pour utiliser un programme 
US sur le Macintosh, vous pouvez 
suivre la procédure indiquée dans le 
Pom's 13 (pages 66-67) ou, plus 
simplement mais moins définitive- 
ment, booter avec une disquette 
comportant un système français, 
l'éjecter, puis travailler alors avec le 
logiciel US. 


1} J'ai écrit un programme en assem- 
bleur qui nécessite tant de mémoire 
libre que je dois le loger sur la carte 
langage. Or. ce programme utilise 
des routines de l'Applesoft et du Mo- 
niteur. Comment dois-je faire pour 
que tout marche ? 

2) J'aperçois sur la carte langage un 
circuit qui ressemble fortement aux 
ROMSs de la carte mère. Qu'est-ce 
que c'est ? 


Monsieur Thierry Han - 
Yaoundé - Cameroun 


B.P. 301 - 


1) La solution la plus simple est celle 
de l'appel indirect : il faut réserver 
une partie de la RAM normale (sous 
l'adresse $BFFF) à une petite routine 
qui active et désactive la carte lan- 
gage. Au lieu d'appeler directement 
le moniteur ou l'interpréteur Apple- 
soft à partir du programme placé sur 
la carte langage, on appelle cette 
routine qui active la lecture de la 
ROM, appelle la routine demandée 
et enfin réactive la lecture (et éven- 
tuellement l'écriture) de la carte lan- 





gage et rend la main au programme 
initial. 

2) La carte langage comprend, outre 
les 16K d'extension RAM. la ROM 
du moniteur Autostart de l'Apple II 
Plus. qui avait remplacé l'Apple II. 
La ROM du moniteur située sur la 
carte mère de l'Apple n'est plus utili- 
sée quand la carte langage est placée 
dans son slot. 


Je ne parviens toujours pas à intro- 
duire, au sein d'un texte en Apple- 
Writer /e les commandes qui me 
permettraient d'imprimer avec des 
caractères autres que le Pica normal 
de mon Epson FX80/FT. 
J'ai bien essayé d'utiliser le principe 
décrit dans le manuel. fondé sur Ctrl- 
. par exemple avec PRINT 
CHRS$(15) pour obtenir les caractères 
condensés. Pouvez-vous me conseil- 
ler ? 


Roger Clavel - 34100 Montpellier 


Pour envoyer des caractères à votre 
imprimante, je vous conseille, si ce 
n’est déjà fait, de lire Donnez du ca- 
ractère à votre imprimante”, Pom's 


Il ne faut pas taper comme en Basic 
"PRINT CHR$(15)” pour envoyer le 
caractère 15, mais faire Ctrl-V Ctrl-O 
Ctrl-V, car le Ctrl-O a 15 pour code 
ASCII. Voir à cet égard ‘Les codes 
ASCII épluchés”, Pom's 4, qui indi- 
que ce qu'il faut taper pour engen- 
drer tel ou tel code ASCII. 

Enfin, le Courrier des Lecteurs du 
Pom's 10 (page 71) montre 
comment il faut traiter le cas particu- 
lier du code 0. 





Je viens de prendre possession d’une 
ImageWriter avec une configuration 
complète //e. Comment fait-on pour 
copier son écran, en dehors des des- 
sins préenregistrés de la disquette 
Toolkit fournie avec l'imprimante ? 
Comment copier un dessin en dou- 
ble haute résolution, avec les 
560+192 points de la carte Eve Chat 
Mauve ? 


Alain Dubois - 
59230 St Amand les Eaux 


En ce qui concerne les graphiques, 
Pom's 1, dans ‘les adresses du gra- 
phique”, indique les zones mémoire 
des pages graphiques. Quand vous 
avez créé un graphique à partir d’un 
programme, il faut d’abord le sauver 
sur disquette avec "BSAVE nom, 
A$2000,L$2000", ou A$4000 s’il est 
en page 2. Il suffira alors de faire 
"BLOAD nom” pour charger la page 
en mémoire. 

Votre programme Toolkit d'impri- 
mante vous permet de charger puis 
d'imprimer une page graphique. 





C'est tout ce qu'il vous reste à faire. 
Il n'existe pas à notre connaissance 
de programme de copie d'écran 
HGR double résolution. L'un de nos 
lecteurs en a peut être réalisé un que 
nous pourrions publier. 


En réponse au courrier de M. Januel 
(Pom's 12), voici la modification du 
programme MENU des disquettes 
Pom's qui permet l'impression sur 
une Epson avec interface Apple : 


70 POKE 34,24:PRINT D1$"PR#"S 
71 PRINT CHRS$(0) 

72 PRINT CHR$(27)"A"CHR$(10) 
73 POKE 1657,80 

75 CALL 37989 

76 PRINT CHR$(27),CHR$(50) 

77 PRINT D$"PR#0" 

78 TEXT 


Alain Meizoz 





Avis aux lecteurs de Pom'’s 


On nous déclare parfois que l’IBM 
PC est une bien meilleure machine 
pour communiquer que notre fidèle 
Apple IL. Pour notre part, chaque fois 
que nous avons désiré relier notre 
Apple à un autre ordinateur, nous y 
sommes parvenus. Nous souhaitons 
réunir un catalogue des liaisons déjà 
établies entre un Apple et d’autres 
ordinateurs. 

Nous prions donc nos lecteurs qui 
ont innové en ce sens de bien vou- 
loir nous écrire pour nous dire à 
quels ordinateurs ils ont déjà relié 
leur Apple, et dans quel but. Bien 
entendu, les noms et adresses pour- 
ront rester confidentiels s'ils en expri- 
ment le souhait. 

Vous pouvez indiquer en outre les 
problèmes que vous avez rencontrés, 
comment ils ont été résolus, combien 
coûte(nt) le(s) logiciel(s) éventuelle- 
ment développé(s). Merci d'avance 
pour tous ceux qui pourront profiter 
de ces informations. 


J'ai réalisé un logiciel pour la gestion 
et l'exécution de menuiseries à isola- 
tion renforcée : croisées, porte-fené- 
tre et châssis. Les personnes intéres- 
sées peuvent me contacter 
directement. 


Christian de Grenier - 10, avenue de 
Verdun - 74100 Annemasse. - Tél. 
(50) 37.54.49 


Erratum : Pom's 13. page 22. l'ins- 
truction 61130 comporte le terme 
INT(X/2) et non INT(X>2). 
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54, rue de Dunkerque 
75009 PARIS Tél.: 282.17.09 
Métro: Gare du Nord (100 m) 


Diskettes U.S 51/4 SF/SD 
Diskettes 3M 5”1/4 SF/DD 
Lecteur diskettes pour APPLE 
(mécan. Japonais, entr. direct) 
Carte synthétiseur de voix 

Carte mémoire/langage 16 K Ram 
Carte mémoire 128 K 

Carte drive 13/16 sect. 

Carte 80 colonnes 

Carte imprimante parallèle 
Carte imprimante + Buffer 32 K 
Carte série 

Carte super série 

Carte Z80 - CP/M 

Joystick de luxe 2 +, 2E, 2C 


Port Urgent ajouter 5,50 F 


HO 


à 


me 


RER EEE EEE 


Ft 
tes 


SATELCOM 


ZI INTERNATIONAL = 


69-71, rue du Chevaleret 
75013 PARIS 


SURPRIS .… LES PRIX!!! 


PRIX T.T.C.! POUR APPLE ET COMPATIBLES 


145 F/boîte 10 (exp. min. 5 boîtes Port 27 F) 
175 F/boîte 10 (exp. min. 5 boîtes Port 27 F) 


1950 F (PORT 95 F] 


350F À Carte wilcard (déplombage) 

450 F Carte communication 
1550F À Carte IEEE - 488 

380F À Carte copieur Eprom 

740F À Carte A/D - D/A 12 bit 

400 F Carte horloge 
1350F À Carte musique 

550 F Carte RGB + Prise TV Secam 
1050F À Carte 6522 Via 

650F Port pour une carte 

180F À Ventilo 10 W. super silencieux 


NOUVEAU: Pince spéciale pour diskettes (100 000 trous min.) (port : 18 F) 69 F 
Ordinateur multicompatible Forth, Basic, CP/M, MS-Dos, CP/M86 


Écrivez, nous vous enverrons une liste plus complète de nos articles. Revendeurs, contactez-nous. 


Notre devise : ’DYNAMIT COMPUTER: MOINS CHER QUE MOI TU MEURS ! 
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LERRENS ittrii bete etel 
RE 


Montant 
TTC 


e la disquette HAIFA Source! | au prix de 55 F la disquette (cf. Pom’s n° 5) Er 
e le logiciel H-BASIC [_] au prix de 150 F (cf. Pom's n° 8) 
























e le logiciel MUSIC [_] au prix de 80 F (cf. Pom'’s n° 10) 

e le Disk Manager [_] au prix de 450 F (cf. Pom'’s n° 11) — | 
e DBSTAG (CP/M) [_] au prix de 450 F (cf. Pom’s n° 11) =} | 
e Disquette de jeux À [_] au prix de 80 F (cf. Pom'’s n° 12) | | 
e Disquette de jeux B [_] au prix de 80 F (cf. Pom'’s n° 12) | 
e le logiciel BASICIUM [_] au prix de 150 F (cf. Pom’s n° 13) | 
e la disquette de démo au prix de 55 F la disquette 1 ] 

sur 64K seulement [_] CX Système [_] Jane 


e Recueil n° 1 de Pom’s (n° 1 à 4) 
[_] avec ses 3 disquettes au prix de 280 F 


[_] sans disquette au prix de 130 F Il _| 
[_] les 3 disquettes seules au prix de 150 F 








e Recueil n° 2 de Pom'’s (n° 5 à 8) 


[_] avec ses 4 disquettes au prix de 320 F 
[_] sans disquette au prix de 130 F | 
[_] les 4 disquettes seules au prix de 190 F 


Je désire recevoir : 
e les numéros de la revue Pom’s [ ]4 []7 ![]8 
au prix de 35 F le numéro 


e les numéros de la revue Pom’s | ]9 {[]10 [111 [ ]12 [ 113 [ ]14 
au prix de 40 F le numéro L | 











e les disquettes d'accompagnement des numéros [ ]1 [12 []3 [![]4 
ES EJ6 O7. Lie: ES CE CIIE Ci CS 4 
au prix de 55 F par disquette 





Je désire m’abonner pour 6 numéros à partir du n°... | 


[_] sans disquette au prix de 200 F = 
[_] avec disquettes au prix de 480 F 














TOTAL : 


Envoyez ce bon de commande et votre règlement à : 


Éditions MEV — 64-70, rue des Chantiers — 78000 Versailles 


Nom 





Adresse 


Ces tarifs comprennent l'envoi postal en France Métropolitaine, CEE et Suisse (voie aérienne exceptée) 
Supplément avion : 10 F par numéro et / ou disquette 
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" L afalife 


ELA Verbatim. 


Jatim. 













.« Disquette de nettoyage 
| . Analyseur d'unité de disque 
. Cassettes et mini-cassettes 
digitales certifiées 


La gamme 
‘référence Æ 


l'environnement de votre 
système 


e Rubans impri rimante cassette et bobine PEGASUS 





e Produits entretie n COMPUCLEAN 
e Charge _ die ettes  e Roues d'impression 
e Tapis antistatique 


EGLER 793 1147 


di. 0 533. 01.37 
0 PARIS 











Faites la connaissance de vos nouveaux collaborateurs: 
Macintosh et Davong 





Macintosh"", le dernier-né de chez Apple, est e é r 
l'informatique individuelle comme l'ont fait ses es, les premie 

Associé aux périphériques Davong, le Macintosh allie la facilité d'emploi 4 
la puissance, la souplesse et de nombreuses possibilités d'extension au 
service de vos affaires. 





Le nouveau système Davong Mac Disk, que vous pouvez vous procurer 
auprès des concessionnaires Davong dans le monde entier, vous offre de 10 à 
32 millions d'octets de mémoire 4 disques, Grâce à Mac Disk, vous obtenez 
enfin la capacité augmentée et la fonctionnalité améliorée qu'il vous faut pour 
résoudre vos problèmes de gestion. Le tout 4 un prix très raisonnable, sans 
affecter la vitesse et la simplicité d'emploi qui caractérisent le Macintosh. 


Une autre bonne nouvelle de chez Davong: l'arrivée très prochaine de son 
système de sauvegarde 4 bande en continu d'une capacité de 28 millions 
d'octets, qui assure la sauvegarde rapide de vos fichiers en toute sécurité, 
ainsi qu'un système multi-tâche de gestion de réseau de zone locale qui 
permet à tous les Macintosh de votre entreprise de partager des données, des 
programmes et de bénéficier en commun des avantages du Mac Disk. 


Pour obtenir de plus amples informations, veuillez vous adresser à votre 
concessionnaire Davong. 


(CE | importateur : 
| | HIT MICRO SYSTEMES 
| | | 171, avenue Charles-de-Gaulle 


D A V o N G 92200 NEULLY ÿ Tél. ‘ ( dl ) 738.28.80 Apple et Macintosh sont des marques de Apple Computer Inc 





